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I.  EXECUTIVE  SUMMARY 


This  report  is  a  supporting  document  to  the  Final  Summary  Report*  on  an 
analytic  process  model  (APM)  for  systems  design  and  measurement.  The 
present  document,  the  Appendix  to  the  Operations  Manual  for  the 
computer-aided  version  of  the  APM,**  contains  a  listing  of  the  Pascal  code  for 
the  computer-aided  model.  The  model  was  developed  for  the  Army  Research 
Institute  (ARI)  Field  Unit,  Fort  Benning,  over  the  period  from  March  1980  to 
February  1983. 

The  objective  of  the  computer-aided  APM  is  to  provide  a  routinized, 
thorough,  adaptive  and  efficient  procedure  to  help  testers,  analysts  and 
researchers  develop  design  specifications  and  evaluation  measures  for  any 
planned  or  existing  human-machine  system,  and  especially  for  any  training 
system.  The  demonstration  version  of  the  computer-aided  model,  as  described 
in  this  report,  performs  a  sample  of  the  routines  expected  in  any  ultimate 
version  that  may  be  developed  in  the  future.  Specifically,  the  demonstration 
model  helps  one  to  derive  evaluation  measures,  but  not  design  specifications. 
In  addition,  it  contains  data  bases  for  training  systems,  but  not  for  any  other 
human-machine  system.  Finally,  it  contains  data  bases  for  only  half  of  the  six 
training  subsystems  (for  design,  enabling  and  delivery,  but  not  for  command, 
logistics  or  emplacement).  For  demonstration  purposes,  this  development 
represents  an  appropriate  and  sufficient  allocation  of  project  resources,  since 
the  more  significant  effort  was  needed  to  develop  the  underlying  concepts  for 
both  a  feasible  "manual"  model  and  the  computer-aided  model.  The 
demonstration  model,  using  an  Apple  II  Plus  computer  with  two  Si-inch  disk 
drives,  programmed  in  PASCAL,  can  be  exercised  straight  through,  beginning 
with  identifying  the  system  and  ending  with  a  subset  of  its  performance 
measures.  Any  larger  capability  than  presently  exists  in  the  demonstration 
routine  would  require  a  computer  with  substantially  greater  capacity  and 
speed. 

Program  listings  are  contained  in  Chapters  2-8.  Chapter  2  contains  a 
listing  of  the  GREETING  program  which  displays  the  title  page,  instructions 
and  the  analytic  procedure  menu.  When  the  computer  is  turned  on  and  the 
APM  system  disk  is  inserted,  the  title  page  is  displayed  first.  Whenever  the 
analyst  decides  to  select  a  different  analytic  procedure,  this  program  is  loaded 
and  the  analytic  procedure  menu  is  displayed. 


*  Bloom ,  R.F. ,  Oates,  J.F. ,  Jr.,  Shapiro,  R.G.  and  Hamilton,  J.W.  The 
Analytic  Process  Model  for  System  Design  and  Measurement;  A 
Computer-Aided  Tool  for  Analyzing  Training  Systems  and  Other  Human-Machine 
Systems"  Norwalk,  CT:  Dunlap  and  Associates  Sast,  Inc.,  28  February  1983. 
(Final  Summary  Report) 

**Shapiro,  R.G.,  Bloom,  R.F.  and  Oates,  J.F.,  Jr.  The  Analytic  Process 
Model  For  System  Design  and  Measurement;  Operations  Handbook  for  the  APM 
bemonstration  Package7  Norwalk,  CT:  Dunlap  and  Associates  East,  Inc.,  28 
February  1^3. - 


Chapter  3  contains  a  listing  of  the  PERFormance  ITEM  (PERFITEM) 
program.  This  program  allows  the  analyst  to  add,  reword,  remove  and  print 
performance  items  (objectives,  functional  purposes  and  characteristics). 
Chapter  4  contains  a  listing  of  the  MEASures  and  ATTRibutes  (MEASATTR) 
program.  MEASATTR  allows  the  analyst  to  add,  reword,  remove  and  print 
attributes  and  measures  for  a  given  performance  item.  Chapter  5  contains  a 
listing  of  the  MEASurement  PURPose  (MEASPURP)  program.  MEASPURP  allows 
the  analyst  to  define  a  measurement  purpose  and  associate  (or  disassociate) 
each  of  the  characteristics  with  the  measurement  purpose. 

Chapter  6  contains  a  listing  of  the  PRINT  program  which  allows  the 
analyst  to  print  the  performance  items,  attributes  and  measures  for  a  given 
measurement  purpose,  or  an  entire  subsystem.  Chapter  7  contains  listings  of 
the  PACK  program  which  arranges  the  data  set  for  a  given  subsystem  in  order 
by  item  reference  number,  and  packs  the  data  sets  so  that  any  unused  space 
is  placed  at  the  end  of  the  data  set  so  that  it  can  be  used. 

Chapter  8  contains  listings  for  a  variety  of  programs  which  support  the 
APM  system.  STARTUP  asks  the  analyst  to  place  the  APM  SYSTEM  disk  in 
Drive  #1  at  the  appropriate  time.  GREETSHORT  reminds  the  analyst  to  place 
the  APM  system  disk  in  Drive  #1  if  he  does  not  do  so.  BLOCKHELP  and 
BLOCKINSTR  set  up  the  HELP,  BRIEFHELP  and  INSTR  data  sets  so  that  they 
are  blocked  efficiently  for  usage  by  the  APM  system.  VIDPATCH  modifies  the 
SYSTEM. APPLE  program  for  use  with  the  VIDEX  board.  It  only  needs  to  be 
run  once  with  each  copy  of  the  SYSTEM. APPLE  program. 

The  operations  handbook  contains  item-by-item  directions  for  starting  up 
and  carrying  out  all  the  steps  in  the  demonstration  routine,  schematic  flow 
charts  and  miscellaneous  information  about  the  equipment  and  maintenance. 
Thus,  it  ought  to  be  understood  prior  to  reading  the  actual  Pascal  listings. 


The  greeting  program  presents  the  title  page,  instructions  (if  desired), 
establishes  which  system  class,  system  and  subsystem  the  analyst  intends  to 
use  (while  allowing  for  the  possibility  of  creating  new  ones).  The  Greeting 
Program  eoncludes  by  determining  which  analytic  procedure  is  to  be  performed 
next.  Whenever  any  analytic  procedure  is  eompleted,  the  analytic  procedure 
menu  in  this  program  is  displayed  to  find  out  which  program  ought  to  be 
executed  next. 
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1  1  i:d  1  (ML  printer:*) 


1  (*«S4«) 

1  (CProgrM  to  groot  UMfi  instruct  usori  and  sat  up  tabla  of  systaos  and  subsystaos*) 
1  (SRonald  6.  Shapiro  V2.0  10/25/82*) 

1 

1  Prog ran  Oraatingl 
3 


8 

28 

i:d 

3 

9 

28 

2:8 

1 

PROCEDURE  SCTCHAIN<TYTLE:STRINfi): 

10 

28 

3:0 

1 

PRKEOURE  SETCVAL(VALlSTRING)i 

11 

28 

4:d 

1 

PROCEDURE  GETCVALiVAR  VAL:STRIN&) 

12 

28 

5:0 

1 

PROCEDURE  SNAPON: 

13 

28 

4:0 

1 

PROCEDURE  SHAPOFF: 

14 

28 

d:o 

1 

IS 

1 

1:0 

1  USES  CHAINSTUFF) 

Id 

1 

i:d 

3 

These  proce<5ures  are  part  of  the  Apple  Computer's  CHAINSTUFF  library  entry. 
The  demonstration  package  uses  only  SETCHAIN  which  causes  another  program 
to  be  activated. 


17 

t:v 

3 

(tteoTveE 

i:d 

3 

9ASSF1LE>8EC0R0 

19 

i:o 

3 

CURS YSf CURSP • CURSUS . 9AC : STR] NCI 803 ; 

20 

i:d 

3 

NCURSYS  tNCURSP  t NCURSU8 . N9 AC .FLACl . FLAG2 .FLAG3 : 1 NTEGER 1 

21 

i:o 

3 

end; 

22 

i:d 

3 

23 

i:o 

3 

su»sysfile>recoro 

24 

i:d 

3 

NSUBSYS:  INTEGERS 

2S 

i:d 

3 

SUBSYS: STRING! 801 ; 

24 

i:d 

3 

ENOS 

27 

i:d 

3 

28 

i:d 

3 

SPSYSFILE-RECORO 

29 

i:d 

3 

NSFSYS:  INTEGERS 

30 

i:d 

3 

SRSYSSSTRINGCOOIS 

31 

im 

3 

ENDS 

32 

i:d 

3 

33 

IID 

3 

SYSF1LE>REC0RD 

34 

i:d 

3 

nsysteh:  integers 

35 

i:o 

3 

SYSTEHSSTRINGCBOIS 

34 

i:d 

3 

ENOS 

37 

i:d 

3 

38 

i:d 

3 

INSTRFILE-RECORO 

39 

i:d 

3 

L1NE:aRRAYC1..201  of  STRIN6C801S 

40 

i:d 

3 

ENDS 

41 

i:d 

3 

42 

i:d 

3 

HCLPF1LC«REC0RD 

43 

i:d 

3 

line:arrayci..ioi  of  stringcgoss 

44 

i:d 

3 

ENOS 

45 

i:o 

3 

44 

i:d 

3 

fastfile«record 

47 

i:d 

3 

PR1NT1T:aRRAYC1..30030F  OOOLEANS 

i:o 

3 

ENOS 

49 

i:o 

3 

PASSFILE  passes  information  about:  1)  system  class  [CURSYS.NCURSYS]  2)  system 
ICURSP.NCURSP]  3)  subsystem  [CURSB.NCURSB]  4)  aspect  [PAC.NPAC]  from  one 
program  to  another.  Flag  1  is  used  to  tell  the  GREETING  program  whether  to 
begin  with  title  page  or  analytic  procedure  list.  Flags  2  and  3  are  unused. 
SUBSYSFILE  contains  a  list  of  the  defined  subsystems  for  each  system.  SPFILE 
contains  a  list  of  the  defined  systems  for  each  system  class.  SYSFILE  contains 
a  list  of  the  defined  system  classes.  INSTRFILE  contains  the  instructions. 
HELPFILE  contains  the  help  commands.  FASTFILE  allows  fast  printing  of  a 
measurement  purpose  if  the  measurement  purpose  had  been  printed  before. 


50 

1 

1!D 

3 

(••P»>VAR 

51 

1 

1:0 

3 

XFUNPUR.X08JECTlVE,PAC.CUKlSVS,CUHSP,CUftSU8,LINE,RE6LlNE,6NSUER:STRINCCe0] 

52 

1 

i:d 

372 

ANSH0t.0>6NS2  f  6NS :  CHAR  $ 

53 

1 

1:0 

375 

OONE.OK.OVER.NEGlROOLEANi 

54 

1 

i:d 

379 

M.ENGTH , LLENGTH . PGE . I >NDAT A, I 1 , I I 2 . Jf K ,L » H r N , NFUNPUR r N08 JECT I VE , 

55 

1 

i:d 

379 

NP  AC  1 NCURS  rs  1 NCURSP  t  NCUR5U8  .‘INTEGER ; 

50 

1 

i:d 

397 

JNELP. help: integer: 

57 

1 

i:d 

399 

CORELAST, El I : 1NTEGERC83; 

58 

1 

i:d 

405 

aphdsk:stringc8i: 

59 

1 

i:d 

410 

NAHEF ILETEST . NAHEFASTISSUE .FILESPNAME . FRAME :STRINGC243 ( 

60 

1 

i:d 

462 

61 

1 

i:d 

462 

ASPECT:ARRAYC1..53  of  STRINGC143: 

62 

1 

1:11 

502 

SUBSYS,SPSYS,SYSTEH:ARRAYC1..103  of  STRINCC8OI: 

63 

1 

1:0 

1732 

SCRATCH!ARRAYC1..20]0F  STRIN6C803: 

64 

1 

1:0 

2552 

nscratch:arrayci..201  of  integer; 

65 

1 

1:0 

2572 

nsubsys.nspsys,nsysteh:array[i..ioi  of  integer: 

66 

1 

t:o 

2602 

67 

1 

i:d 

2602 

syslist:file  of  sysfile: 

68 

1 

no 

2944 

SUBSYSLISTIFILE  OF  SUBSYSFILE: 

69 

1 

i:d 

3286 

spsyslist:file  of  spsysfile; 

70 

1 

t:D 

3628 

passnooe:filc  of  passfile; 

71 

1 

i:d 

4099 

instfile:file  of  instrfile; 

72 

1 

t:o 

5219 

HELPERiFILE  OF  HELPFILE: 

73 

1 

i:d 

5929 

prntstext: 

74 

1 

1:0 

6230 

F ILETEST : text: 

75 

1 

i:d 

6531 

FAST issue :file  of  fastfile: 

76 

1 

i:d 

7131 

These  strings,  arrays  and  variables  are  used  by  the  GREETING  program 


77  1  2:D  1  (*IP*)PROCEDUF(E  KEYiFORUARD: 

78  1  3:0  1  PKOCEOUftE  KEYNiFOPWAPDi 

79  1  4:0  1  PROCEDURE  DRRNCHOUTiFORUARD: 

BO  1  5:d  1  PROCEDURE  systehfiles;foruard; 

81  1  «:D  1  PROCEDURE  SllFORUARD; 

82  1  7:D  1  PROCEDURE  S2;F0RURRD» 

83  1  b:o  1  PROCEDURE  ss;forwrrd; 

84  1  9:d  1  PROCEDURE  henu:foruard: 

85  1  10:D  1  PROCEDURE  PROPERHAINDISKiFORUARD; 

84  1  11 :D  1  PROCEDURE  OPENSPFILESiFORUARDi 

87  1  12:D  1  PROCEDURE  GOSPSYSCREATEIFORUAROI 

88  1  13:D  1  PROCEDURE  SPSYSCREATEIFORWARD.' 

89  1  14:D  1  PROCEDURE  SPSYSTEHFILESSFORUARDl 

90  1  1S;D  1  PROCEDURE  SUDSYSTEHFILESIFORUARD; 

91  1  14:D  1  PROCEDURE  PREPSPCREATESFORUARDl 

92  1  17:D  1  PROCEDURE  HELPROUTINEi FORWARDS 

93  1  18:d  1  PROCEDURE  GOSUBCREATEi FORWARD; 

94  1  ib:d  1 

95  1  18:D  1 


These  procedures  are  presented  later  on  in  the  GREETING  program 


<0  O  ^  O  ^ 


19t» 

1 

(*»P«>PROCEOURE 

i9:o 

0 

aEGlN 

i9:i 

0 

HELP:-HLPi 

i9:i 

9 

URITE(HSG); 

i9:i 

20 

KEYNS 

i9:o 

22 

end; 

i9:o 

34 

KEYNPREP  displays  a  one  line  message,  then  calls  KEYN  to  read  a  number  from 
the  keyboard. 


1«3 

1 

3o:o 

1 

( ttrt )  MiOCE  DUfiE  rur  KE  Y  <  HLr :  INTECEIi  i  MSG :  STS  I NG )  i 

104 

1 

2o:o 

0 

•ECIN 

105 

1 

30il 

0 

HELPS-HLri 

104 

1 

2o:i 

9 

REPEAT 

107 

1 

20:2 

9 

MR1TE(HSG>: 

1 

20:2 

20 

KETi 

109 

1 

20:1 

22 

UNTIL  (ANS-'Y')  OR  (ANS«'N'>t 

110 

1 

20:0 

35 

ENDS 

111 

1 

20i0 

50 

PREPKEY  displays  a  message  then  calls  KEY  to  read  a  letter  response  from  the 
keyboard.  If  a  response  is  not  Y,  y,  N,  n.  Yes  or  No,  it  redisplays  the  message 
and,  once  again,  waits  for  a  response. 


112 

1 

218 

1 

(>tP«)pmCEIlUaE  KEY! 

113 

1 

210 

0 

•E6IN 

114 

1 

210 

0 

«6a-«) 

IIS 

1 

211 

0 

ONStiEKl-' 

11* 

1 

211 

24 

REPEAT 

117 

1 

212 

24 

REAOLNl ANSWER >1 

118 

1 

212 

43 

ANSl-ANSUERClll 

117 

1 

212 

SO 

IF  (ANSO'Y'lANOtANSO 

120 

1 

212 

73 

(ANSO'n'lANOtANSOM 

121 

1 

213 

87 

URITELNt 'PLEASE  RESP( 

122 

1 

212 

132 

IF  0RD(ANS»70  THEN 

123 

1 

213 

137 

8EGIN 

124 

1 

214 

137 

1I2!-0R0(ANS)-321 

125 

1 

214 

147 

ANSl>CHR(I12>t 

126 

1 

213 

153 

END! 

127 

1 

211 

153 

UNTIL  (ANS«'Y'>  OR  (AN< 

128 

1 

211 

172 

<64Rit) 

127 

1 

211 

172 

IF  ANS-'H'  THEN 

130 

1 

212 

177 

HELPROUTINEI 

131 

1 

210 

181 

ENDt 

132 

1 

210 

176 

KEY  reads  a  letter  response  from  the  keyboard.  If  response  is  1)  y  or  Y,  it  places 
a  Y  in  ANS  and  returns  to  calling  procedure;  2)  n  or  N,  it  places  an  N  in  ANS 
and  returns  to  calling  procedure;  3)  h  or  H,  it  calls  the  HELP  routine,  places  an 
H  in  ANS  and  returns  to  calling  program;  or  4)  any  other  key~it  displays  PLEASE 
RESPOND  YES  OR  NO  and  awaits  a  Y,  N,  H,  y,  n  or  h  response.  NOTE;  Only 
the  first  character/line  is  processed.  The  rest  is  ignored. 


'.N*.  *«.*  V* 


133 

1 

21  :o 

1 

(t«P*>PK0CEIIURE  anykey; 

134 

1 

21  :o 

0 

0EC1N 

133 

1 

2i:i 

0 

NR1TELN<‘  '>; 

134 

1 

2i:i 

10 

UftITELN<**<t  PlMsc  prcM  «iiy  Key  to  continue  •**'); 

137 

1 

2i:i 

70 

130 

1 

2i:i 

70 

0EAD(ANS>; 

139 

1 

2t:i 

09 

140 

1 

21  :o 

09 

end; 

141 

1 

21  :o 

102 

ANYKEY  displays  "Please  Press  any  Key  to  Continue"  then  it  awaits  a  Keypress 
before  returning  control  to  the  calling  procedure. 


142 

1 

3:0 

1 

(*«P«)PR0CE8URE  KEYNi 

143 

1 

3:0 

1 

VMi 

144 

1 

3:8 

1 

MISUER:  STRINGt40i; 

145 

1 

3:d 

22 

Ii:  ARRRYC1..43  OF  INTEGERS 

146 

1 

3:0 

26 

okiboolean; 

147 

1 

3:d 

27 

iioiintecer; 

148 

1 

3:8 

28 

149 

1 

3:0 

0 

BEGIN 

ISO 

1 

3:0 

0 

(««R-«> 

151 

1 

3:1 

0 

ok:-true$ 

152 

1 

3:t 

3 

REPEAT 

153 

1 

3:2 

3 

REPEAT 

154 

1 

3:3 

3 

IS«-1} 

155 

1 

3:3 

8 

ansuer:>'  't 

156 

1 

3:3 

35 

REABLN< ANSWER) : 

157 

1 

3t3 

54 

IF  LENGTH<ANSWER)*0  THEN 

158 

1 

3:4 

62 

HRITELN( 'PiMsc  Mtcr  th«  inicftr  OQOin'); 

159 

1 

3:2 

112 

UNTIL  LENGTH<ANSHER>O0; 

160 

1 

3:2 

120 

IF  (ANSHERCn>'H')  OR  (ANSHERtl3>'h' )  THEN 

161 

1 

3:3 

135 

BEGIN 

162 

1 

3:4 

135 

helproutine; 

163 

1 

3:4 

137 

IS-999} 

164 

1 

3:4 

143 

EXIT (KEYN) 1 

165 

1 

3:3 

147 

ENDS 

166 

1 

3:2 

147 

FOR  i:«l  TO  4  80 

167 

1 

3:3 

162 

BEGIN 

168 

1 

3:4 

162 

1 1 C  n  .*  -0R8(  ANSWER!  13  >-481 

169 

1 

3:4 

180 

IF  (IICIKO)  OR  (IIIIJ>9)  THEN 

170 

1 

3:s 

207 

BEGIN 

171 

1 

3:6 

207 

IF  (I-l)  OR  <IItII<>(0R0<'  ')-48))  THEN 

172 

1 

3S7 

229 

BEGIN 

173 

1 

3:8 

229 

ok:«false; 

174 

1 

3:8 

232 

HRITELNi 'PLEASE  RESP0N8  WITH  A  POSITIVE  INTEGER' >S 

175 

1 

3:7 

290 

end; 

176 

1 

3SS 

290 

EN8I 

177 

1 

3:3 

290 

end; 

178 

1 

3:1 

300 

UNTIL  true; 

179 

1 

3:1 

303 

iio:«iicu; 

180 

1 

3:1 

313 

FOR  l:>2  TO  4  80 

181 

1 

3:2 

328 

BEGIN 

182 

1 

3:3 

328 

IF  (IICI3>*0>  AND  <II!I3<«9>  THEN 

183 

1 

3:4 

355 

iio:>iio«io4iui3; 

184 

1 

3:2 

372 

end; 

185 

1 

3:2 

382 

<MR4«) 

186 

1 

3:1 

382 

i:>iio; 

187 

1 

3:0 

387 

end; 

188 

1 

3:0 

410 

KEYN  reads  a  1  or  2  digit  response  from  the  keyboard  and  places  it  into  I.  If 
an  H  or  an  h  are  typed  in,  it  places  a  999  in  I  and  calls  the  HELP  routine.  If 
more  than  2  characters  are  typed,  only  2  characters  are  read.  The  rest  are 
ignored.  If  the  character(s)  are  not  positive  intergers,  KEYN  will  display  an 
appropriate  warning  and  wait  for  a  response. 


189 

1 

22:8 

1 

(*«P«)PROCEDURE  SHOMALINC; 

190 

1 

22:0 

0 

8EGIN 

191 

1 

22:1 

0 

NLENCTHl-LENGTHdlHE)  1 

192 

1 

22:1 

7 

WHILE  LINECNLENGTH]*'  '  80 

193 

1 

22:2 

18 

NLEN6TH:>NLENGTH-lt 

194 

1 

22:1 

28 

IF  NLENGTHOLLENGTH  THEN 

195 

1 

22:2 

37 

8EG1N 

194 

1 

22:3 

37 

HRITE(LINE); 

197 

1 

2213 

48 

EXlT(SHOHALINE)i 

198 

1 

22:2 

52 

EN8; 

199 

1 

22!  1 

52 

L:-LLEN6THi 

200 

1 

22:1 

58 

WHILE  LINELLIO'  '  80 

201 

1 

22:2 

69 

l:»l-ii 

202 

1 

22:1 

79 

L:-L-li 

203 

1 

22:1 

87 

regline:=copy(linEi1.l): 

204 

1 

22:1 

104 

L:-Li2; 

205 

1 

22:1 

112 

WRITELN(REGLIHE): 

206 

1 

22: 1 

131 

HLENGTH ! >NLENGTH-L41 1 

207 

1 

22:1 

143 

KEGLINE  .'-COPY  ( LINE ,  L .  NLEN6TH)  1 

208 

1 

22!  1 

162 

WRITE  ('  SREGLINE)! 

209 

1 

22:0 

187 

EN8; 

210 

1 

22:0 

204 

210 

1 

22:0 

204 

(*«I  «5!HELPTEXT.TEXT«) 

SHOWALINE  displays  text  on  the  screen.  If,  by  chance,  the  text  is  longer  than 
the  amount  of  space  available  on  the  current  line,  the  display  continues  onto 
a  second  line. 


211 

1 

23:D 

1 

(••P*>FM)CEDURE  PRNTHELF'; 

212 

1 

23:0 

0 

BEGIN 

213 

1 

23: 1 

0 

I)One:<false; 

214 

1 

23: 1 

4 

REURITECPRNT, 'PRINTER: ' >S 

215 

1 

23: 1 

25 

PM>£(PRNT>: 

216 

1 

23:i 

35 

WRITELN(PRNr,CHR<14>. 'Analytic  Process  Model ' tCHR(13> 

217 

1 

23: 1 

97 

URITELN<PRNT.CHR<14)t'Help  File'tChr<13)>t 

218 

1 

23:i 

144 

pge:«2: 

219 

1 

23: 1 

150 

REPEAT 

220 

1 

23:2 

150 

SEEK ( HELPER, PGE)i 

221 

1 

23:2 

141 

GET ( HELPER); 

222 

1 

23:2 

149 

PA6E<PRNT>: 

223 

1 

23:2 

179 

k:>pge-i: 

224 

1 

23:2 

187 

URITELNIPRNT,' 

225 

1 

23:2 

239 

'  Poge  ',K); 

224 

1 

23:2 

308 

FOR  J:>1  to  10  DO 

227 

1 

23:3 

322 

HRITELN<PRNT,HELPER''.LINE1J3>: 

228 

1 

23:2 

342 

IF  C0Pr(HELPER''.LlNEC2I.2,10)> 'conclusion'  THEN 

229 

1 

23:3 

399 

oone:>true: 

230 

1 

23:2 

403 

pge:«pge4i; 

231 

1 

23: 1 

411 

until<done>: 

232 

1 

23: 1 

414 

PMiE(PRNT): 

233 

1 

23: 1 

424 

close<prnt>: 

234 

1 

23:0 

435 

end; 

235 

1 

23:0 

452 

PRINTHELP  prints  the  HELP  file  on  the  printer.  It  is  called  by  HELPROtniNE. 


2M 

1 

1718 

1 

(••POlMiOCEOUftE  HELPaOUTlNEI 

237 

1 

1710 

0 

BEGIN 

238 

1 

1710 

0 

(•91-«> 

239 

1 

1711 

0 

RESET ( HELPER t ' 05 1 HELP ') 1 

240 

1 

1711 

18 

241 

1 

1711 

18 

II«IORESULTi 

242 

1 

1711 

23 

IF  (lOO)  THEN 

243 

1 

1712 

30 

BEGIN 

244 

1 

1713 

30 

PAGE (OUTPUT )1 

243 

1 

1713 

40 

HRITELN('UNFORTUNATELYt  THE  HELP  FILE  IS  NOT  AVAILABLE  ON  YOUR  BISK'H 

244 

1 

1713 

118 

URITELN('  Ml 

247 

1 

1713 

134 

URITELNl'PLEASE  PRESS  ANY  KEY  TO  CONTINUE  PROCESSINCMI 

248 

1 

1713 

199 

READ(ANS); 

249 

1 

1713 

210 

EXIT(HELPROUTINE)| 

250 

1 

1712 

214 

ENBI 

251 

1 

1711 

214 

11-01 

252 

1 

1711 

218 

PGEt-HELPtll 

253 

1 

1711 

224 

BONEl-FALSEI 

254 

1 

1711 

230 

REPEAT 

255 

1 

1712 

230 

S£EK(HELPER«POE)} 

254 

1 

1712 

241 

OET<HELPER>: 

237 

1 

1712 

249 

PAGE ( OUTPUT)! 

258 

1 

1712 

259 

GOT0XY(73,0)t 

259 

1 

1712 

244 

Kl-PGE-ll 

240 

1 

1712 

272 

HRITELNl 'Pog*  MK)| 

241 

1 

1712 

309 

GOTOXYIO.O)} 

242 

1 

1712 

314 

FOR  Jl-1  TO  10  00 

243 

1 

1713 

328 

HRITELN  <  HELPER'' .  L  INEEJl )  I 

244 

1 

1712 

348 

IF  C0PY<HELPER-.LINE(2]f2.10>-'conclu*ion'  THEN 

245 

1 

1713 

405 

BONE! -TRUE! 

244 

1 

1712 

409 

HRITELNl'  ')! 

247 

1 

1712 

427 

URITELNl '«M«PLEASE  PRESS  RETURN  KEY  TO  VIEW  NEXT  PAGE*t*»'>| 

248 

1 

1712 

494 

IIRITELN('«**»PLEAS£  TYPE  PAGE  NUHBER  ANO  PRESS  RETURN  KEY  TO  VIEU  ANOTHER 
PAOEWMMt 

249 

1 

1712 

389 

MRITE  <'<*««PUASE  PRESS  ESC  ANO  RETURN  KEYS  TO  ESCAPE  HELP  ROUTINES***' )  1 

270 

1 

1712 

444 

PGEl-PGCtli 

271 

1 

1712 

472 

<*«R-*) 

272 

1 

1712 

472 

ANSUERl-'  M 

273 

1 

1712 

489 

REABLNl ANSWER); 

274 

1 

1712 

708 

pagt(outpui)l 

HELPROUTINE  displays  appropriate  help  comipands  when  it  is  called  by  KEY  or 
KEYN.  HELPROUTINE  knows  which  HELP  to  display  because  the  calling  program 
places  the  appropriate  help  page  number  into  HELP.  Once  the  analyst  sees  the 
first  help  message,  he/she  can  ask  for  other  help  messages  by  typing  in  the  page 
number  of  the  desired  help  messages.  Note  that  the  HELP  file  is  made  by 
editing  a  series  of  files  (HELPl  .  .  .  HELPN)  using  the  Apple  editor.  Then, 
they  are  processed  by  the  BLOCKHELP  program  (see  Chapter  Vlll).  The  HELP 
file  pro<luced  by  BLOCKHELP  is  suitable  for  use  with  the  HELPROUTINE. 
HELPROUTINE  "knows"  it  has  hit  the  last  page  of  the  file  because  the  word 
"conclusion"  appears  on  the  second  line  of  the  last  page. 


IF  0K0(ANSUtlilCl])«27  T»tfN 
BEGIN 

CLOSE ( HELPER >i 

EXIT  <HCLPROUTINE>; 

<«tR-«) 

ENO: 

IF  <ANSHERC13>«'0')  AN6  (ANSMERm<»'9' )  THEN 
BEGIN 

PGE :  >ORII  <  ANSHERC 1 3  ) -48  i 

IF  <ANSHER(23^>'0'>  AND  <ANSUERt23<-'9' >  THEN 
PGe:>PGC«IO  4  0RD<ANSHCRC23)-4e( 

pge:>pge4i: 

IF  PGE<2  THEN 
P6E:>2; 
bone: -false; 
end; 

UNTIL  (BONE)  ANB  ( (ANSNERE13<'0' >  OR  <ANSHERtl3>'9')); 
PAGE (OUTPUT); 

PREPKEY<2t 'Mould  you  liKo  to  print  tho  holp  filoT'); 

IF  ANS«'Y'  THEN 
BEGIN 

KEYNPREP<2,'Hou  oony  copiosT  '); 

FOR  n:-1  TO  1  00 
PRNTHELP; 

HRITELN('OONE'); 

end; 

CLOSE (HELPER) 

<««R'ft) 

enb; 


(8«I  •9:HELPTEXT.TEXT*) 


See  previous  page  for  program  description. 


30» 

1 

24:8 

1 

(•$r>«)pM)CE8URE  quit; 

310 

1 

2410 

0 

BEGIN 

311 

1 

2411 

0 

PAGE (OUTPUT); 

312 

1 

2411 

10 

REPEAT 

313 

1 

24:2 

10 

wrlt*( 'Would  you  liH*  to  return  to  title  poge?'); 

314 

1 

24:2 

01 

help:>2; 

31S 

1 

24:2 

45 

key 

314 

1 

24: 1 

63 

until  (an«B'Y')  or  <an«*'N'>; 

317 

1 

24: 1 

80 

if  one^'T'  then 

318 

1 

24:2 

87 

begin 

31« 

1 

24:3 

87 

setchoin ( 'greeting ' ) i 

330 

1 

24:3 

101 

possnode''.flogi:>0; 

321 

1 

24:3 

109 

bronchout; 

322 

1 

24:3 

111 

eMit(progroa); 

323 

1 

24:2 

113 

end; 

324 

1 

24:i 

113 

REPEAT 

32S 

1 

24:2 

113 

urite< 'Would  you  like  to  turn  off  coaputer  for  now?'); 

324 

1 

24:2 

171 

help:*2; 

327 

1 

24:2 

173 

key 

328 

1 

24: 1 

173 

until  (onf*'Y'>  or  <ane>'N'); 

329 

1 

24:i 

190 

if  ana>'Y'  then 

330 

1 

24:2 

197 

begin 

331 

1 

24:3 

197 

p«canode'‘.flogi:*0; 

332 

1 

24:3 

203 

bronchout; 

333 

1 

24:3 

207 

poge(output); 

334 

1 

24:3 

217 

writelni'bye...'); 

33S 

1 

24:3 

243 

writeln<"); 

334 

1 

24:3 

263 

writeln<'  1  hope  to  sec  you  ogoin  very  soon)'); 

337 

1 

24:3 

318 

writeln<'  '); 

338 

1 

24:3 

336 

writeln('You  any  now:'); 

339 

1 

24:3 

368 

writelnC'  1.  Reaove  the  disks.')) 

340 

1 

24:3 

409 

writeln('  2.  Turn  off  printer.')) 

341 

1 

24:3 

430 

writelnl'  3.  Turn  off  coaputer.')) 

342 

1 

24:3 

492 

writelni'  4.  Turn  off  this  display  screen.')) 

343 

1 

24:3 

343 

ovcr:«false; 

344 

1 

24:3 

349 

REPEAT 

343 

1 

24:4 

349 

i:«i 

344 

1 

24:3 

349 

UNTIL  over«true; 

347 

1 

24:2 

361 

end; 

348 

1 

24: 1 

361 

REPEAT 

QUIT  asks  the  analyst  what  he/she  wants  to  do  next  1)  return  to  the  title  page, 
2)  turn  off  the  computer,  3)  access  the  Apple  operating  system.  If  options  2  or 
3  are  selected,  it  says  bye  .  .  .  and  displays  some  helpful  advice.  If  option  1 
is  selected,  the  computer  then  goes  into  an  infinite  loop,  whereas  if  option  3  is 
selected,  the  analyst  gains  control  of  the  Apple  operating  system.  If  the  analyst 
selects  no  option,  then  he/she  is  sent  back  into  the  ARM  demonstration  package, 
approximately  where  he/she  left  off. 


-17> 


writ*< 'Uo'ild  you  like  to  loovo  oodol  and  occoss  cooputer  oporoting  systeo?')! 

htlp:32; 

koy 

until  <on«x'Y')  or  <on«**N'>; 
if  ons«'Y‘  thon 
bogin 

possnodc*«f logl :>0; 
brnnchout; 

PMSElOUTfUT); 
uritoln('by*<i>')S 
writcln<  ")l 

urittln<‘  1  hopt  to  »to  you  again  vory  soon*'); 
uritdln(")> 

writolni'  You  arc  now  on  your  own  with  tho  bpplt  0S')t 
Mritcln("): 

writalni'  good  luck...')} 
for  i:«l  to  1000  do 

i:>i<io: 

•Kittprogran); 

•ndi 

uritaln< 'Sinco  you  hovo  coloctod  not  to  exit  froa  thii  progroor  1  will  '){ 
writelnl'  send  you  back  to  where  you  left  off  as  soon  as  you  press  any  key<')( 
<*«r-t) 
reod(ans); 

<t«rfl> 

end; 


See  previous  page  for  program  description. 


37A 

1 

2518 

1 

(8»9*)PM)CEIIURE  HEUOi 

377 

1 

2510 

0 

tCGIN 

378 

1 

2s:i 

0 

9MC(0UTPUT)t 

379 

1 

2s:i 

10 

WJTELN(‘  Ml 

380 

1 

2S:i 

28 

WKITELNt'  ')! 

38i 

J 

2311 

44 

VRITELNC'  '>i 

382 

1 

2s:i 

44 

MilTELNi'  Ml 

383 

1 

2S:i 

82 

miteln:  ' 

AN  ANALYTIC  PROCESS  NOOEL  FOR')} 

384 

1 

2s:i 

154 

UftlTELNi'  '){ 

385 

1 

2S:i 

174 

IW1TELN(' 

SYSTEHS  DESIGN  AND  HEASUREHENTi ' ) i 

384 

1 

25: 1 

249 

MR1TELN('  '>; 

387 

1 

2s:i 

247 

VKITELNC ' 

APPLICATIONS  TO  TRAINING  SYSTEMS'); 

388 

1 

2s:i 

343 

IMITELNC'  '){ 

389 

1 

25:i 

341 

IMItELN<' 

390 

1 

2s:i 

379 

IMITELNC '  ')S 

391 

1 

25:i 

397 

IMITELNC'  Mi 

392 

1 

2s:i 

415 

IMITELNC'  ')i 

393 

1 

25:i 

433 

IMITELNC ' 

Pr*p«r»d  For:  ARI  Field  Uniit  Fort  Donningt  Goorgia'li 

394 

1 

2s:i 

509 

IMITELNC' 

Proporod  Dr:  Dunlop  I  Aocociotos  Eoit»  Inc<t  NortMlt,  Conn')! 

395 

1 

25:i 

599 

IMITELNC' 

Dot*:  25  OctoDor  1982' )( 

394 

1 

2s:i 

445 

NftITELNC'  '>; 

397 

1 

2S:i 

443 

IMITELNC'  'tl 

398 

1 

25:i 

481 

MNITEC' 

PLEASE  PRESS  ANY  KEY  TO  DEClN'>i 

399 

1 

2S:i 

744 

C«48-t) 

400 

1 

2S:i 

744 

8E4I>C4NS)i 

401 

1 

2s:i 

757 

CMftlS) 

402 

1 

2s:o 

757 

ENOi 

403 

1 

25:o 

770 

404 

1 

2s:o 

770 

HELLO  displays  the  title  page, 


40S 

1 

26:P 

1 

( (•F’t  > PROCEDURE  PRNT I NST RUCT I ONS 1 

40& 

1 

24  :o 

0 

DEGIN 

407 

1 

24: 1 

0 

done:*false: 

408 

1 

24:1 

4 

REUR1TE<PRNT, 'PRINTER: ' >1 

409 

1 

24:1 

25 

PAGEIPRNT); 

410 

1 

24:1 

35 

URITELN(PRNT,CHR(14), 'Analytic  Process  Nodel' iCHR(l3> 

411 

1 

24:1 

97 

HRlTELN(PRNT,CHR(14),'Jnstructions‘,chr(13)); 

412 

1 

24:1 

149 

pge:>2; 

413 

1 

2411 

153 

REPEAT 

414 

1 

24:2 

153 

seek(instfilEiPGE>: 

41S 

1 

24:2 

144 

GCTdNSTFILE); 

416 

1 

24:2 

172 

PAGEIPRNT); 

417 

1 

24:2 

182 

k:>pge-i> 

418 

1 

24:2 

190 

MRITELNIPRNT,' 

419 

1 

24:2 

242 

'  Poge  ',K)i 

420 

1 

24:2 

311 

FOR  J:>1  to  20  DO 

421 

1 

24:3 

325 

URITELNCPRNT,  INSTFILE'^.LINEC  J1  >  1 

422 

1 

24:2 

345 

IF  C0PY(lNSTFlLE*.tlNE[23,2>10>>'conclution'  THEN 

423 

1 

24:3 

402 

oone:«true: 

424 

1 

24:2 

404 

PGE:«PGEdi 

42S 

1 

24:1 

414 

UNTIL (DONE); 

424 

1 

24:1 

419 

PAGE  ( PRNT  >1* 

427 

1 

24:1 

429 

CLOSE < PRNT >: 

428 

1 

24:0 

438 

end: 

429 

1 

24:0 

454 

PRINTINSTRUCTIONS  prints  the  instructions  on  the  printer  when  it  is  called  by 
INSTRUCTIONS.  (It  is  nearly  identical  in  structure  to  PRINTllELP.) 


430 

1 

27:D 

1 

431 

1 

27:0 

0 

432 

1 

27:o 

0 

433 

1 

27;i 

0 

434 

1 

27: 1 

26 

435 

1 

27: 1 

26 

434 

1 

27:i 

31 

437 

1 

27:2 

38 

438 

1 

27:3 

38 

439 

1 

27:3 

40 

440 

1 

27:3 

42 

441 

1 

27:2 

46 

442 

1 

27: 1 

46 

443 

1 

27:2 

59 

444 

1 

27:3 

59 

445 

1 

27:3 

69 

446 

1 

27:3 

154 

447 

1 

27:3 

172 

44B 

1 

27:3 

235 

449 

1 

27:3 

246 

450 

1 

27:2 

250 

451 

1 

27: 1 

250 

452 

1 

27: 1 

254 

453 

1 

27.*  1 

258 

454 

1 

27: 1 

262 

455 

1 

27:2 

262 

456 

1 

27:2 

273 

457 

1 

27:2 

281 

458 

1 

27)2 

291 

459 

1 

27:2 

296 

460 

1 

27:2 

304 

461 

1 

27:2 

341 

462 

1 

27:2 

346 

463 

1 

27(3 

360 

464 

1 

27:2 

400 

465 

1 

27:3 

437 

466 

1 

27:2 

441 

467 

1 

27:2 

459 

468 

1 

27:2 

528 

(t$P*>PlilOCEDURE  INSTRUCTIONSt 
BEGIN 

RESEK  INSTFlLEi '  APHUTL :  INSTRUCT '  > } 

i:>ioresult: 

IF  l«9  THEN 
BEGIN 

properhainbisk; 
instructions; 
exit; INSTRUCTIONS); 
end; 

IF  (1<>0)RND<I09)  THEN 
BEGIN 

PAGE (OUTPUT); 

WRITELN< 'UNFORTUNATELY*  INSTRUCTION  FILE  IS  NOT  AVAILABLE  ON  YOUR  DISK'); 
HR1TELN('  '); 

WRITELNI 'PLEASE  PRESS  ANY  KEY  TO  CONTINUE  PROCESSING'); 

READ(ANS); 

EXITdNSTRUCTIONS); 

end; 
i;«o; 
pge:>2; 
done: -false; 

REPEAT 

SEEKdNSTFILE.PGE); 

GETdNSTFILE); 

PAGE (OUTPUT); 

6OTOXY(73.0); 

k;»pge-i; 

HRITELN('Ptt4«  ',K); 

OOTOXY(O.O); 

FOR  J:«1  TO  20  DO 

HRITELN; IHSTFILEA.LINEt J1 ) ; 

IF  C0PYdNSTFILE‘*.LlNCC21*2,10)>'conclutiOA'  THEN 

bone: -true; 

MRITELN('  '); 

NRITELN('»««PLEASE  PRESS  RETURN  KEY  TO  VIEN  NEXT  PACE»»i»'); 
HRITELN('«tt«PLEASE  TYPE  PACE  NURBER  AND  PRESS  RETURN  KEY  TO  VIEW  ANOTHER 
PAGEU**'); 


INSTRUCTIONS  displays  th(?  instructions.  Functionally,  it  is  virtually  identical 
to  HELPROUTINE. 


A69 

1 

27:2 

621 

UftITE  ('»«**PLEASe  mss  ESC  ANti  KETUKN  KEYS  TO  ESCAPE  INSTRUCTIONS****' ){ 

470 

1 

27:2 

696 

pce:«pge*i: 

471 

1 

27:2 

704 

(>«R-«) 

472 

1 

27:2 

704 

ansuer:«'  'I 

47Z 

1 

27:2 

721 

REAIILN<ANSU£R>i 

474 

1 

27:2 

740 

pogcC output): 

475 

1 

27:2 

750 

IF  0R(P(ANSUERCll)-27  THEN 

474 

1 

27:3 

758 

SEGIN 

477 

1 

27:4 

758 

CL0SE(INSTF1LE>: 

478 

1 

27:4 

767 

(**Rf«> 

47? 

1 

27:4 

767 

EXIT  (INSTRUCTIONS); 

480 

1 

2714 

771 

(*»R-*) 

481 

1 

27:3 

771 

end; 

482 

1 

27:2 

771 

IF  <ANSUERC13><>'0')  AND  <ANSUERC11<«'9' )  THEN 

483 

1 

27:3 

786 

BEGIN 

484 

1 

27:4 

786 

POE :  >0RI)  ( ANSNERC 1 1 ) -48; 

485 

1 

27:4 

795 

IF  (ANSUERC23>‘'0')  AND  <ANSUERC2]<«'9' )  THEN 

486 

1 

27:s 

810 

PGE:<PGE*10  4  0RD(ANSUERC21)-48; 

487 

1 

27:4 

825 

P6e:«pce4i: 

488 

1 

27:4 

833 

IF  PGE<2  THEN 

489 

1 

27:s 

840 

pge:>2; 

490 

1 

27:4 

844 

D0NE:>FAi.S£; 

491 

1 

27:3 

848 

end; 

492 

1 

27: 1 

848 

UNTIL  (DONE)  AND  ( <ANSUERC13<'0' >  OR  (ANSUERtl3>'9' )) ; 

493 

1 

27: 1 

867 

PAGE (OUTPUT); 

494 

1 

27:i 

877 

PfiEPKEY<2t 'Would  YOU  liKo  to  print  tl>»»o  in(tructionsT'); 

495 

1 

27:1 

926 

IF  ANS-'Y'  THEN 

496 

1 

27:2 

933 

BEGIN 

497 

1 

27:3 

933 

KEYNPREP<2.'Hou  aonY  copies?  '){ 

498 

1 

27:3 

956 

FOR  n:«i  to  1  DO 

499 

1 

27:4 

972 

PRNTINSTRUCTIONS; 

500 

1 

27:3 

984 

WRITELNt'DONE'); 

SOI 

1 

27t2 

1008 

end; 

502 

1 

27: 1 

1008 

CLOSE (INSTFILE) 

503 

1 

27: 1 

1017 

(««R4«) 

504 

1 

27:0 

1017 

end; 

505 

1 

27:0 

1038 

See  previous  page  for  program  description, 


SM 

1 

4tD 

1 

(•OrOlfROCEDURE  BRANCHOUT; 

S07 

1 

4:0 

0 

BEGIN 

508 

1 

4:0 

0 

509 

1 

4:1 

0 

RESET ( PASSNOBE •' PASSTHRU ; 

510 

1 

4:1 

19 

511 

1 

4:1 

19 

IFdORESULTOO)  THEN 

512 

4:2 

25 

WRITE! 'SERIOUS  ERROR  --  NO  FILE  PASSTHRU  AT  BRANCHOUT') 

513 

1 

4:1 

83 

ELSE 

514 

1 

4!2 

85 

BEGIN 

515 

1 

4:3 

85 

PASSNODE''  .CURSrS  .*  -CURSTS; 

514 

1 

4:3 

95 

PASSNODE  * . CURSUB : «CURSUB ; 

517 

1 

4:3 

104 

PASSNODE* . CURSP i >CURSP 1 

518 

1 

4:3 

114 

PASSNOBE*.PAC:«PAC; 

519 

1 

4:3 

122 

PASSNODE'^ .  NCURSYS :  -NCURSYS ; 

520 

1 

4:3 

132 

PASSNOBE  * . NCURSUB i >NCURSUB ; 

521 

1 

4:3 

142 

PASSNOBE '' .  NCURSP 1  >NCURSP  ; 

522 

1 

4:3 

152 

PASSNOBE A . NPAC : -NPAC I 

523 

1 

4:3 

1*2 

PASSNOBE''.  FLAGi:-0; 

524 

1 

4:3 

170 

PUT(PASSNOBE): 

525 

1 

4:3 

178 

IF  EOF (PASSNOBE)  THEN 

524 

1 

4:4 

188 

HRlTELNI'OUT  OF  DISK  SPACE  WHILE  WRITING  PASSTHRU')) 

527 

1 

4:3 

248 

CLOSE  <  PASSNOBE • LOCK ) ) 

528 

1 

4:2 

257 

enb; 

529 

1 

4:0 

257 

enb; 

530 

1 

4:0 

272 

BRANCHOUT  loads  the  PASSTHRU  file  with  appropriate  data  for  use  by  called 
programs. 


531 

1 

2b:d 

1 

(••POrROCEDUfiE  branchin; 

533 

1 

28:o 

0 

BEGIN 

533 

1 

28:o 

0 

534 

1 

28: 1 

0 

RESE T < PASSNOBE PASSTHRU ; 

535 

1 

28: 1 

19 

536 

1 

28: 1 

19 

IF  lORESULTOO  THEN 

537 

1 

28:2 

25 

BEGIN 

538 

1 

28:3 

25 

REURlTElPASSNObE. 'PASSTHRU' >1 

; 

53? 

1 

28:3 

46 

PASSNOOE'' .CURSYS:<  "  1 

540 

1 

28:3 

56 

PASSN0bE''.CURSUB:«' ' t 

* 

541 

1 

28:3 

66 

PASSN0(iE*.PAC:«"t 

, 

542 

1 

28:3 

74 

PASSN0bE*.NCURSYS:«0: 

f 

543 

1 

28:3 

82 

PASSNObE A . NCURSP :s0: 

544 

1 

28:3 

90 

PASSN0bE«.NCURSUB:>0; 

p 

545 

1 

28:3 

98 

PASSN0bE«.NPAC:>0: 

1 

546 

1 

28:3 

106 

PUT(PASSNObE): 

( 

547 

1 

28:3 

114 

IF  E0F(PASSN0b£)  THEN 

548 

1 

28:4 

124 

URlTELNi'OUT  OF  blSK  SPACE  WHILE  WRITING  PASSTHRU'); 

549 

1 

28:3 

184 

CLOSE  <  PASSNODE , LOCK ) : 

I 

550 

1 

28:3 

193 

RESET (PASSNObE* 'PASSTHRU' ) 

1 

551 

1 

28:2 

214 

ENb; 

552 

1 

28: 1 

214 

GET (PASSNODE); 

f 

553 

1 

28: 1 

222 

cuRsrs:«PASSNOiiE*  .cuRSYs; 

i 

554 

1 

28: 1 

232 

CURSP :  ■PASSNODE'' .  CURSP ; 

1 

555 

1 

2811 

242 

CURSUB :>PASSNObEA . cursub; 

556 

1 

28: 1 

251 

PAC:  ■PASSNODE''.  PAC; 

. 

557 

1 

28: 1 

259 

NCURSYS :  •PASSNODE'' .  NCURSYS; 

1 

558 

1 

28: 1 

268 

NCURSUB : -PASSNODE A . NCURSUB; 

I 

559 

1 

28: 1 

277 

NPAC : ‘PASSNODE A . NPAC ; 

560 

1 

28: 1 

286 

CLOSE! PASSNODE 1 LOCK); 

1 

561 

1 

28:0 

295 

end; 

1 

502 

1 

28:0 

310 

1 

BRANCHIN  gets  information  from  the  PASSTHRU  file  for  use  by  this  program. 


‘v  V  • 


S63 

1 

2910 

1 

(tsropRocEiiuRE  hakedisk; 

5«4 

1 

29:o 

0 

8E61N 

S«S 

1 

29: 1 

0 

F«EF'KEY(54 

I'Uould  you  liko  to  proparo  a  now  data  disk  For  thi*  •ubtyttoo?' >; 

1 

29: 1 

67 

IF  ANS*'N' 

THEN 

567 

1 

29:2 

74 

IlEGIN 

S6S 

1 

29:3 

74 

HENU; 

569 

1 

29:3 

76 

EXlT(iMKEDISK)I 

570 

1 

29:2 

80 

EMU 

571 

1 

29:i 

80 

lffiITELN('I 

can  noithor  Foroat  nor  none  a  dikkt  to  I  will  toll  you  what  to  do'i 

572 

1 

29: 1 

159 

ehr(13)t'  thm  you  will  bovo  tb*  opportunity  to  do  it. '>cbr(13)r 

573 

1 

29:i 

237 

# 

1.  Turn  to  page  184  of  tbo  APPLE  PASCAL  Oporoting  Syaton  RoForonco 

Nonuol.'t  chr<13)t 

576 

1 

29:1 

335 

$ 

2.  Incort  Appln  3  in  drivo  li  and  Follow  tbo  diroctions.'iCbr(13>t 

575 

1 

29: 1 

415 

f 

3.  Hhon  finikbodt  turn  to  pogo  33  oF  tbo  aaoc  MnuoI.'rchr<13)i 

576 

1 

29:i 

492 

» 

4.  Enter  tbo  FILER  progran.'tChr(13>t 

577 

1 

29: 1 

543 

i 

5.  Turn  to  page  45  and  run  tbo  change  prograoi  changing', cbr(13)t 

578 

1 

29: 1 

622 

t 

blank:  to  the  new  nano  Followed  by  a  colon.  The  new',chr(13>, 

579 

1 

29: 1 

703 

t 

none  conaists  of  the  Firtt  3  letters  of  the  systen  naM',chr<13> 

580 

1 

29:i 

787 

» 

Followed  by  the  first  3  letters  of  the  subsystee  nooe.',chr<13>. 

581 

1 

29: 1 

870 

t 

6.  Good  Luck — 1  will  see  you  agoin  soon'); 

582 

1 

29: 1 

931 

EXIT(PROGKAN): 

583 

1 

29:o 

935 

end; 

584 

1 

29:o 

948 

MAKEDISK  tells  analyst  how  to  format  a  new  disk  if  no  disk  is  available  for 
the  subsystem  requested. 


;?j.9j.uvnjmji 


S8S 

1 

io:d 

1 

(•tPIlfROCEDUKE  fROrEftlMINDlSK; 

SM 

1 

io:o 

0 

6EGIN 

567 

1 

1011 

0 

MCE  ( OUTPUT  >i 

566 

1 

io:i 

10 

REPEAT 

569 

1 

1011 

10 

590 

1 

1012 

10 

RESET  < INSTF ILE . ' APnUTL 1 INSTRUCT ' > 

591 

1 

1012 

36 

592 

1 

1012 

36 

k:«ior£sult; 

593 

1 

1012 

41 

IF  •(■O  THEN 

594 

1 

1013 

48 

CLOSEdNSTFILEll 

595 

1 

1012 

57 

IF  K>9  THEN 

596 

1 

1013 

64 

KGIN 

597 

1 

1014 

64 

HR1TELN('P1ms«  place  the  APN 

598 

1 

1014 

141 

ANYKEY! 

599 

1 

1013 

143 

END! 

600 

1 

io:i 

143 

UNTIL  K<>9i 

601 

1 

1010 

150 

END! 

602 

1 

io:o 

164 

PROPERMAINDISK  checks  to  be  sure  that  the  APMUTILITY  disk  is  in  Drive  #2 
when  it  is  needed. 


403 

1 

3010 

1 

(ttPOPROCEDURE  PKOPEMUSKl 

604 

1 

3o:o 

0 

BEGIN 

605 

1 

3011 

0 

ok:-true; 

606 

1 

3011 

4 

PACE (OUTPUT); 

607 

1 

3011 

14 

MRlTELN('Syctra  clotli  SCUftSYS); 

608 

1 

3011 

60 

HRlTELNl'SyctMl  SCUftSP)! 

609 

1 

30:i 

100 

UftXTELN( 'SubsystMl  SCURSUB); 

610 

1 

30:i 

142 

URlTELNi'  m; 

611 

1 

3011 

160 

APMISK:>C0NCAT(C0PY(CUKSYS.1>2) .COPYICURSP, 1 ,2) ,C0PT(CUftSUB, 1 ,2) , ' 1 ' ) ; 

612 

1 

3o:i 

245 

NANEF ILETEST 1 -CONCAT ( APNBSK , ' TEST ' ) 1 

613 

1 

3o:i 

277 

REPEAT 

614 

1 

3o:i 

277 

615 

1 

30:2 

277 

RESET(FILETEST.NANEFILETEST) 1 

616 

1 

3012 

288 

617 

1 

30:2 

288 

k:-ioresult; 

618 

1 

3012 

293 

IF  K«9  THEN 

619 

1 

3013 

300 

BEGIN 

620 

1 

3014 

300 

help:«2; 

621 

1 

3014 

304 

HRITELNi'ir  the  disk  for  this  tycioo  clots,  oyttM, 

end  oubeyste*  »*'. 

622 

1 

3014 

375 

chr<13),'  ovoiloblo,  ploco  it  in  Drivo  0  2 

end  type  Y  (retrn). 

623 

1 

3014 

459 

chr<13>,'  Othorwioo,  typo  N  (return).'); 

624 

1 

3014 

518 

key; 

625 

1 

3014 

520 

IF  ANS>'Y'  THEN 

626 

1 

3015 

527 

BEGIN 

627 

1 

3016 

527 

PROPERDISK; 

628 

1 

3016 

529 

EXIT (PROPERDISK); 

629 

1 

3015 

533 

end; 

630 

1 

30:4 

533 

IF  (ANS«'N')  OR  (ANS>'n')  THEN 

631 

1 

3015 

546 

OKI-false; 

632 

1 

3013 

550 

end; 

633 

1 

30:1 

550 

UNTIL  (K09)  OR  (OK-FALSE)! 

634 

1 

3011 

564 

IF  OK-FALSE  THEN 

635 

1 

30:2 

572 

hakedisk; 

636 

1 

30:0 

574 

end; 

637 

1 

3010 

590 

PROPERDISK  checks  to  be  sure  that  the  appropriate  disk  for  the  system  class, 
system  and  subsystem  selected  is  in  Drive  #2  before  branching  to  another  program 


638 

i3f 

640 

641 
|642 

643 

644 


D 
0 
0 
1 
1 
1 
1 

645  1  31 :o 

646  1  31 :0 


3i:i 
31.'< 
31 :( 
31  :i 
3i:i 
3i:i 
311] 


1  PROCEDURE  REHOVEF AST issue: 

0  DECJN 
0 

0  NAHEFASTlSSUE:>C0NCAT(APHDSK,C0PY(CURSYS,1.4>>C0PY(CURSP,1.4)fC0PY(CURSUD>lt4>t'FA'):j 
9S  RESEKFASTISSUErNAHEFASTISSUE) : 

106  CLOSE(FASTlSSUEtPURGE): 

113  <*«H»> 

113  end; 

126 


REMOVEFASTISSUE  delets  the  FASTISSUE  file  whenever  PACK  DATA  is  run. 

(A  new  FASTISSUE  file  will  be  created  the  next  time  tlie  PRINT  program  is  run.] 


447  1  32:i>  I  OtPOPKOCEDUKE  SHOUHENUi 

448  1  32:0  0  BEGIN 

44?  1  32tl  0  f4«»(iMitput); 

450  i  3211  10  HKlTELNt'SytiM  clots:  'icursyt); 

451  1  3211  54  HRlTELNt'SystM.*  '>eursp)i 

452  1  32tl  ?4  WtlTELNC'Sobsystn:  Scursub); 

453  1  32! 1  138  WtITELN<'  ‘ii 

454  1  32!1  154  HKlTELNi'You  ooy  porforo  tho  following  onolytic  procedures:')! 

455  1  32:i  224  writelnC'  '); 

454  1  32:i  244  writeln(  'li  Mdt  eodifyi  or  delete  perforeonce  liens' tchr<  13) r 

457  1  32! 1  310  *2i  Addt  nodify>  or  delete  neosuroble  attributes  or  neasures'tChr(13>i 

458  1  32: 1  392  '3>  Mi,  aodify#  or  delete  neosurenent  purposes' rchr(  13)  • 

459  1  32: 1  441  *4i  Print  out  selected  results  fron  your  anolysis'tCbr(13)t 

440  1  32:i  532  '5<  Pock  your  disk  files  nost  efficiently  (o  slow  process>'tChr<13)> 

441  1  32!1  412  '4>  Chonge  Systen  closSf  Systeot  ond/or  Subsysten  to  be  onolyxed'iChr(13)t 

442  1  32:i  498  '7.  Peview  Instructions'tCbr<13>t 

443  1  32:i  743  '8.  Stop  for  nou'»chr(l3),chr<13>>I 

444  1  32:0  799  ENOS 

445  1  32:0  812 


SHOWMENU  displays  the  list  of  analytic  procedures  available. 


6i6  1  9:0  1  (t*f$lfMC€OUkt  N£Mi; 

6«7  1  9:0  0  KGIN 

668  1  9:i  0  SHOunCNUi 

669  1  9:i  2  REF’EAT 

670  1  9:2  2  KEYNPREPtSi 'Uhich  would  you  liK*  to  do7')i 

671  1  9:2  35  IF  1*999  THEN 

672  1  9:3  46  8EC1N 

673  1  9:4  44  menu; 

674  t  9:4  46  EXIT(HENU)i 

675  1  9:3  SO  ENbi 

676  1  9:2  SO  IF  <l>a)  OR  (Kl)  THEN 

677  1  9:3  63  URITELN( 'Pleosc  type  on  inioger  botwoen  1  and  0'}} 

678  1  9:i  121  UNTIL  (I>0>  AND  (1<9): 

679  1  9:i  134  IF  1<6  THEN 

680  1  9:2  141  BEGIN 

681  1  9:3  141  PROPERDISKS 

682  1  9:3  143  IF  K«9  THEN 

683  1  9:4  ISO  BEGIN 

|684  1  9:S  ISO  HRITELN: 'Options  1  to  S  ore  not  ovoiloble,  because  you  ore  not  oble 

685  I  9:S  220  chr<13)t  'to  insert  the  oppropriote  disk.  Please  select'i 

686  1  9:5  288  chr<13>i  'Option  6t  7>  or  8  when  the  oenu  reoppeors'lt 

687  1  9:S  3S9  ANYKEY! 

688  1  9:S  361  HENUi 

689  I  914  363  END; 

690  1  9:2  363  END,* 

691  1  9t2  363 

692  1  9:i  363  CASE  1  OF 

693  1  9:i  368  i:  BEGIN 

694  1  9:3  368  SETCHA1N( 'PERFITEH' 

695  1  9:3  382  EXITIPROGRAH) ; 

696  I  912  386  END! 

697  1  911  388  21  BEGIN 

69S  I  913  388  SETCHAINY 'NEASATTR'i; 

699  1  913  402  EXITIPROGRAH) ! 

700  I  912  406  end; 

701  1  911  408  31  BEGIN 

702  1  913  408  SETCHAIN< 'NEASPURP' >1 

703  1  9:3  422  EXITIPROGRAH) ; 

704  1  9:2  426  END! 

705  1  9:i  428  4:  BEGIN 


MENU  calls  SHOWMENU  to  display  the  list  of  analytic  procedures  available. 
Then,  menu  calls  KEYN  to  find  out  which  analytic  procedure  the  analyst  wishes 
to  perform.  It  then  sets  up  the  Apple  chaining  program  to  execute  the  desired 
procedure.  Then,  it  branches  to  that  procedure. 


7M 

1 

913 

428 

SETCHAIN('F-8INT‘); 

707 

1 

9:3 

439 

EXIT<PR0G«lAH)S 

706 

1 

9:2 

443 

ENDS 

707 

1 

9:1 

445 

5: 

8EG1N 

710 

1 

9:3 

445 

REHOUEF AST ISSUES 

711 

1 

9:3 

447 

SETCHAIN('PACKDATA'>S 

712 

1 

9:3 

461 

€Xn<fflOCflM)f 

713 

1 

9:2 

465 

ENDS 

714 

1 

9:1 

467 

6: 

BEGIN 

715 

1 

9:3 

467 

PROPERHAINOISKS 

716 

1 

9:3 

469 

SYSTEHFILESS 

717 

1 

9:3 

471 

SPSYSTENFILESS 

718 

1 

9:3 

473 

SUBSYSTEHFILESS 

719 

9:3 

475 

BRANCHOUTS 

720 

1 

9:3 

477 

MENUS 

721 

1 

9:3 

479 

EXIT(NENU)S 

722 

1 

9:2 

463 

ENDS 

723 

1 

9:1 

485 

71 

BEGIN 

724 

1 

9:3 

485 

PROPERNAINDISKS 

725 

1 

9:3 

487 

instructions: 

726 

1 

9:3 

489 

MENUS 

727 

1 

9:2 

491 

ENDS 

726 

1 

9:1 

493 

6: 

BEGIN 

729 

1 

9:3 

493 

QUITS 

730 

1 

9:3 

495 

MENUS 

731 

1 

9:3 

497 

EXIT(HCNU>S 

732 

1 

9:2 

501 

ENOS 

733 

1 

9:1 

503 

ENDS 

734 

1 

9:0 

526 

ENDS 

735 

1 

9:0 

548 

See  previous  page  for  program  description. 


73«  1  33:D  1  <*tPt) PROCEDURE  SUBSYSCREATE; 

737  1  33:0  0  BEGIN 

738  1  33:1  0  REPEAT 

739  1  33:2  0  l:«Oi 

740  1  33:2  4  REPEAT 

741  1  33:3  4  i:«I41i 

742  133:2  12  UNT1L<1>10>  OR  (SUBSYSCll*" >{ 

743  1  33:2  38  IF  I«10  THEN 

744  1  33:3  45  BEGIN 

745  1  33:4  45  UR1TELN<‘«««UARN1NG  SYST:  NO  ROOK  FOR  HORE  SUBSYSTEMS  FOR  SYSTEM  CLASS' t CURS YS> 

746  1  33:4  138  anykey; 

747  1  33:4  140  EXIT<SUBSYSCREATE) 

748  1  33:3  144  END 

749  1  33:2  144  ELSE 

750  1  33:3  146  GOSUBCREATEl 

751  1  33:1  148  UNTIL  ok; 

752  1  33:0  153  end; 

753  1  33:0  170 


SUBSYSCREATE  enters  subsystem  names  into  the  SUBSYSFILE  for  a  given 
system  class  and  system. 


754  1  18:P  Kttf'OF’KOCEDUKE  GOSUBCRE ATE : 

TS5  1  18:0  0  BEGIN 

7SA  1  1811  0  URITEI'Uhat  it  tht  naa*  of  your  tubtyti«a?'>$ 

7S7  i  18:i  47  SUBSYSCli:-"} 

755  1  18: 1  85  REPEAT 

759  1  18:3  65  REAIrt.N(SUBSYSCn>S 

760  1  18:2  95  IF  SUBSYSCIl*"  THEN 

761  1  18:3  115  EXIT(SUBSYSCREATE); 

762  1  18:2  119  IF  LENGTH! SUBS YS[n><5  THEN 

763  1  18:3  138  WRITE! 'SubtytlM  noM  ouft  contoin  ot  loot!  5  lettort — 'rCHR!13>, 

764  1  18:3  208  'Float*  typo  a  nou  nao*:'>> 

765  1  18:2  243  K;>F0S!'  ',SUBSYSCn>: 

766  1  18:2  268  IF  !K>0)  AND  !K<6)  THEN 

767  1  18:3  281  WRITE! 'Non*  of  th*  firtt  fiv*  choraciort  of  tubtyttoo  non*  can  bo  blanK — 'tchr!13) 

768  1  18:3  369  'Float*  typo  a  now  nao*:'>t 

769  1  18:i  404  UNTIL  !LENGTH!SUBSYSCI3)>>5)  AND  !!K<1)  OR  !K>5)>; 

770  1  18: 1  435  NSUBSYSCn:<i: 

771  1  18: 1  452  WRITELN!'Subtytt*o  '.SUBSYSCIlt'  it  ooabor  nuober  ' .NSUBSYSCIl, 

773  1  18: 1  549  CHR!13).'  Of  tytioo  'fCURSF>; 

773  1  18:i  602  RESET!SUBSYSLIST,FRAHE): 

774  1  18:i  615  SEEK!SUBSYSL1ST,1>: 

775  1  18:i  626  SUBSYSLlST''.NSUBSYS:>NSUBSYSCni 

776  1  18:i  644  SUBSYSL1ST‘'.SUBSYS:-SUBSYSCU; 

777  1  18:i  664  FUT  !SUBSYSL1ST>; 

778  1  18: 1  672  CL0SE(SUBSYSL1ST,L0CK) i 

779  1  18: 1  681  WRITELN!'  ')( 

780  1  18: 1  699  REFEAT 

781  1  18:2  699  URITELH! 'Would  you  lib*  to  procood  with  tho  onolytit  of  tytioo  clott  'rCURSYSf 

783118:3783  ‘ t ' ,CHR! 13) t 'tytioo  '.CURSP,'  {tubtyttoo  '>SUBSYSCI1. 'T' ) { 

783  1  la:?  898  HELF:>33S 

784  1  ie:2  903  key; 

785  1  18:i  904  UNTIL  !ANS>'Y')  OR  !ANS*'N'>: 

786  1  18:i  917  IF  ANS^'Y'  THEN 

787  1  18:2  924  BEGIN 

788  1  18:3  934  CURSUB:*SUBSYSCn: 

789  1  1813  941  NCURSUBl^NSUBSYSin: 

790  1  1813  958  FASSN0DE‘'.FLAG1  :>0: 

791  1  18:3  966  BRANCHOUTI 

793  1  18:3  968  HENU; 

793  1  1S:2  970  ENDi* 


GOSUBCREATE  is  a  continuation  of  SUBSYSCREATE, 


794 

1 

i8:i 

970 

ftCPEAT 

795 

1 

1812 

970 

WAITE: 'Uould  you  like  to  add  aoro  tubsysteas  to  systn 

7V6 

1 

18:2 

10S2 

help:°S4: 

797 

1 

ib:2 

10S6 

KEY 

798 

1 

ib:i 

lOSO 

UNTIL  <AHS='r')  Oh  <ANS*'N'); 

799 

1 

I8:i 

1071 

OKlMhUE: 

800 

1 

ie:i 

107S 

IF  ANS='Y'  THEN 

801 

1 

18:2 

1082 

Ok:<FALSE 

802 

1 

i8:i 

1082 

ELSE 

803 

1 

ie:2 

1088 

EXIT<SU8SYSChEATE)t 

804 

1 

ie:o 

1092 

ENOt 

BOS 

80S 

1 

1 

i8:o 

i8:o 

1110 

1110 

<««i  •s:greet2.text*) 

See  previous  page  for  program  description, 


806 

1 

34  :d 

1 

(••PtlF-ROCEOUfiE  OPENSrSTEHFILESi 

807 

1 

34  :o 

0 

BEGIN 

808 

1 

3411 

0 

properhaindisk; 

809 

1 

3411 

2 

<*(!-«) 

810 

1 

34: 1 

2 

RESETCSYSLIST, 'APNUTLIAPNSVSTENS' >J 

811 

1 

34  :i 

30 

<»»14»> 

812 

1 

34:i 

30 

IE  lORESULTOO  THEN 

813 

1 

34:2 

36 

BEGIN 

814 

1 

34:3 

36 

REURITEISYSLIST, 'APHUTLIAPHSYSTEHS' >; 

815 

1 

34:3 

66 

FOR  i:-l  TO  10  DO 

816 

1 

3414 

80 

BEGIN 

817 

1 

3415 

80 

syslist^.nsysteh:>is 

818 

1 

34:S 

87 

SYSLIST*.SYSTE«:«'''I 

819 

1 

34:5 

97 

SEEK(SYSLIST.I)i 

820 

1 

34: 5 

108 

PUT(SYSLlST)i 

821 

1 

34:S 

116 

IF  EOF(SYSLIST)  THEN 

822 

1 

34:6 

126 

BEGIN 

823 

1 

34:7 

126 

uritelnt'Out  of  disk  spacemi'); 

824 

1 

34:7 

166 

anykey; 

825 

1 

34:7 

168 

EXIT(SYSTEHFILES): 

826 

1 

34:6 

172 

end; 

827 

1 

34:4 

172 

end; 

828 

1 

34:3 

182 

close<syslist,lock); 

829 

1 

34:3 

191 

OPENSYSTEHFILES: 

830 

1 

34:3 

193 

EX I T ( OPENSYSTEHF ILES  > ; 

831 

1 

34:2 

197 

end; 

832 

1 

34:1 

197 

BEGIN 

833 

1 

34:2 

197 

FOR  i:>l  TO  10  DO 

834 

1 

34:3 

211 

BEGIN 

835 

1 

34:4 

211 

SEEKCSYSLIST.li; 

836 

1 

34:4 

222 

GET(SYSL1ST>; 

837 

1 

34:4 

230 

NSYSTENC 1 3 :*syslist*.nsyst£h; 

838 

1 

34:4 

248 

SYSTEHC 1 3 : -SYSLIST* .SYSTEHl 

839 

1 

34:3 

268 

end: 

840 

1 

34:2 

278 

CLOSE<SYSLIST,LOCK); 

841 

1 

34:1 

287 

end; 

842 

1 

34:0 

287 

end; 

843 

1 

34:0 

306 

OPENSYSTEIVJFILES  opens  the  file  containing  the  list  of  defined  system  classes 
If  such  a  file  does  not  exist,  GOSYSTEltlFILES  creates  one. 


aai 

1 

36:D 

1 

(•tPOPROCEDUKE  PREPSUBCREATE i 

882 

1 

36:o 

0 

BEGIN 

1 

36:i 

0 

FRAME : >CONCAT <' APHUTL .COPY (CURSYS > 1 . S >, COP Y < CURSP • 1 1 5 >.' SUB ; 

SI 

n 

36: 1 

82 

OPENSUBFILES; 

H 

36: 1 

84 

SUBSYSCREATE; 

886 

1 

3610 

86 

end; 

887 

1 

36:0 

98 

PREPSUBCREATE  calls  OPENSUBFILES  and  SUBSYSCREATE  as  necessary, 


888 

1 

37:D 

1 

(str-tirROCEDUKC  syscreote; 

88? 

1 

37:o 

0 

BEGIN 

8V0 

1 

37;  1 

0 

RERERT 

891 

1 

37:2 

0 

i:«0i 

893 

1 

37:2 

4 

REPEAT 

893 

1 

37:3 

4 

i:-Hi: 

894 

1 

37:2 

12 

UNTIL  (I>10)  OR  (SYSTEHCIl<">i 

895 

1 

37:2 

38 

IF  1*10  THEN 

896 

1 

37:3 

45 

BEGIN 

897 

1 

37:4 

45 

HRITELN('*««HARNING  SYSTEH  IS  FULLt»l'>: 

898 

1 

37:4 

93 

ANYKEYS 

899 

1 

37:4 

95 

EXIT (SYSCREATE); 

900 

1 

37:3 

99 

ENti 

901 

1 

37:2 

99 

ELSE 

902 

1 

37:3 

101 

BEGIN 

903 

1 

37:4 

101 

URlTEl'Mhdt  is  ih*  44*4  of  your  n»u  doss  of  systoos?'); 

904 

1 

37:4 

159 

SYSTEM  n:-"; 

90S 

1 

37:4 

177 

REPEAT 

906 

1 

37:5 

177 

REAIlLN(SYSTEnCn>; 

907 

1 

37:5 

207 

IF  SYSTEM  11>"  THEN 

908 

1 

3716 

227 

EXIT(SYSCREATE>; 

909 

1 

3715 

231 

IF  LENGTH  (SYSTEM  1 3X5  THEN 

910 

1 

37:6 

250 

HRITE('SystM  doss  noot  oust  contoin  ot  loost  5  choroctorsS 

911 

1 

37:6 

314 

CHR(l3>t 'Floss*  typo  o  now  hoocS'); 

912 

1 

3715 

359 

k:>pos('  ',systemi3>s 

913 

1 

37:5 

384 

IF  (K>0)  AND  (K<6)  THEN 

914 

1 

37:6 

397 

UR1TELN( 'None  of  the  first  fiv*  choroctors  of  o  systeo  doss  noo* 

eoA  Bo  Blonk — 'tChr(13)t 

915 

1 

3716 

490 

'Plooso  typo  0  now  nooc'); 

916 

1 

37:4 

532 

UNTIL<LENGTH<STSTEHC13»>S>  AND  ((K<1>  OR  (K>S>>; 

917 

1 

3714 

563 

NSrSTEMI3:«lS 

918 

1 

37:4 

580 

URlTELN('Systo*  doss  'tSYSTEHC13»'  hos  Boon  odOod  to  the  list  of 

systeo  dosses'); 

919 

1 

37:4 

692 

HR1T£LN('  os  systeo  nuober  '•NSYSTCNCIl); 

920 

1 

37:4 

754 

RESET ( SYSL 1 ST , ' APHOTL : APHSYSTEHS ' ) ; 

921 

1 

3714 

784 

SEEK(SYSLISTtI>; 

922 

1 

3714 

795 

SYSL 1 ST* . NSYSTEH;»NS YSTEHt I 3 i 

923 

1 

3714 

813 

SYSL  I  ST* .  SYSTEH :  ■SYSTEM  1 3  ; 

924 

1 

3714 

833 

PUT  (SYSLIST)) 

925 

1 

3714 

841 

CLOSE(SYSLIST,LOCK>; 

SYSCREATE 

enters  system  class  names  into  the  list  of  system  classes. 

926 

1 

3714 

850 

CURSYSl-SYSTEHCIlt 

927 

1 

3714 

868 

NCURSYS:«NSYSUKtl3$ 

928 

1 

3714 

885 

UR1TELN('  ')} 

929 

1 

3714 

903 

REPEAT 

930 

1 

3715 

903 

URITE( 'Would  you  lik*  to  dtfinc  nn  sytioat 
SrSTEMnf '9')$ 

for  oyttM  doss  'r 

931 

1 

3715 

1002 

HELP:-56) 

932 

1 

3713 

1006 

KEY 

933 

1 

3714 

1006 

UNTIL  (ANS-'T')  OR  <ANS>'N'); 

934 

1 

3714 

1021 

IF  ANS>'Y'  THEN 

935 

1 

3715 

1028 

BEGIN 

936 

1 

3716 

1028 

prepspcreate: 

937 

1 

3715 

1030 

END 

938 

1 

37:4 

1030 

ELSE 

939 

1 

3715 

1032 

S21 

940 

1 

37:4 

1034 

PREPKEY(33t 'Would  you  like  to  dovolop  0  now 

doss  of  systoos?'); 

941 

1 

3714 

1089 

IF  ANS*'V'  THEN 

942 

1 

37:5 

1096 

ok: -FALSE 

943 

1 

37:4 

1096 

ELSE 

944 

1 

37:5 

1102 

EXlTlSYSCREATElt 

945 

1 

37!3 

1106 

ENB 

946 

1 

37:1 

1106 

UNTIL  OKI 

947 

948 

1 

1 

37:0 

37:0 

1111 

1136 

end; 

See  previous  page  for  program  description. 


V49 

1 

518 

1 

(*«F’t>9R0CEbURE  SYSlEHFILESi 

950 

1 

5:o 

0 

BEGIN 

951 

1 

5:1 

0 

ANSHOLbU'  ‘i 

952 

1 

5:1 

4 

Of'ENSYSTEHFILES; 

953 

1 

5:1 

6 

REPENT 

954 

1 

5:2 

6 

overi>true: 

955 

1 

5:2 

10 

PAGE (OUTPUT); 

956 

1 

5:2 

20 

NDATA!>0: 

957 

1 

512 

24 

WR1TELN('  1  dotj  for  tb*  following  clot»04  of  huaon-iiochint  •yttoosl'i; 

95B 

1 

5:2 

108 

FOR  i;>l  TO  10  DO 

959 

1 

513 

122 

BEGIN 

960 

1 

5:4 

122 

IF  SYSTENCnO"  THEN 

961 

1 

SIS 

142 

BEGIN 

962 

1 

516 

142 

URITELN('  %NSYSTEH(13,'.  '.SrSTEHCID; 

963 

1 

516 

224 

ndata:>i 

964 

1 

5:5 

224 

end; 

96S 

1 

5:3 

228 

end: 

966 

1 

5:2 

238 

URITELNl'  '); 

967 

1 

512 

256 

IF  NKATA*  0  THEN 

968 

1 

5:3 

263 

BEGIN 

969 

1 

5:4 

263 

ii>o: 

970 

1 

5:4 

267 

HRITELNC’  ...  neflo'l) 

971 

1 

513 

297 

END 

972 

1 

5:2 

297 

ELSE 

973 

1 

5:3 

299 

BEGIN 

974 

1 

514 

299 

REPEAT 

975 

1 

5:5 

299 

KEYNPREP<33t'Ubich  «yciob  cl6««  would  you  liKo  to  onolyzd  (typo  0 
for  non*  of  tbo  ttbovo)?')! 

976 

1 

s:s 

381 

IF  I>999  THEN 

977 

1 

516 

390 

BEGIN 

978 

1 

5J7 

390 

SYSTENFILES; 

979 

1 

517 

392 

EXITISYSTEHFILES); 

980 

J 

516 

396 

end; 

981 

1 

SIS 

396 

IF(I<0>  OR  (I>10>  THEN 

982 

1 

516 

409 

URITELN< 'PLEASE  TYPE  AN  INTEGER  BETWEEN  0  AND  10' > 

983 

1 

514 

468 

UNTIL  (I>«0>  AND  (1<>10); 

984 

1 

514 

481 

IF  100  THEN 

985 

1 

SIS 

488 

BEGIN 

986 

1 

516 

488 

IF  SYSTENCI3»"  THEN 

987 

1 

517 

508 

BEGIN 

SYSTEMFILES  displays  the  names  of  defined  system  classes  and  determines 
which  one  the  analyst  wishes  to  analyze. 


UL 


9«S 

1 

518 

508 

U8ITELN(NSYS1Entn.'  DOES  HOT  EXIST  AT  f-RESENTMS 

989 

1 

5:8 

577 

UKITELN: ‘PLEASE  T8Y  ANOTHER  SYSTEH  CLASS')} 

990 

1 

s:8 

428 

anykey: 

991 

1 

5:b 

430 

OUEft:>FALSE: 

992 

1 

5:7 

434 

end: 

993 

1 

s:s 

434 

end; 

994 

1 

s:3 

434 

end: 

995 

1 

5:2 

434 

IF  1-0  THEN 

994 

1 

5:3 

441 

DEGIN 

997 

1 

s:4 

441 

PREPKEY(33t 'Would  you  Ilk*  to  dovolop  0  om  clot*  of  tytiootT')! 

998 

1 

5:4 

494 

IF  ANS-'Y'  THEN 

999 

1 

vor 

^4  ^ 

703 

9£G!H 

1000 

1 

s:4 

703 

’^sy^reate: 

1001 

1 

s:4 

705 

over: -FALSE 

1002 

1 

5:5 

705 

END 

1003 

1 

5:4 

709 

ELSE 

1004 

1 

5:5 

711 

DEGIN 

1005 

1 

5:4 

711 

PREPKEY(2> 'Would  you  liko  to  ttop  for  nouT')} 

1004 

1 

s:4 

748 

IF  ANS-'Y'  THEN 

1007 

1 

5t7 

755 

QUIT 

1008 

1 

S!4 

755 

ELSE 

1009 

1 

5:7 

759 

DEGIN 

1010 

1 

518 

759 

WRlTELN<'Tb*r*  or*  no  oth*r  optiont — to  I  will  prct*nt 
tho  option*  090in'>: 

1011 

1 

5:e 

842 

WRITELN<'888Pl*ot*  pr***  ony  k*y  to  r*vi*u  tko  optiont*8S')j 

1012 

1 

s:s 

910 

(«»R-8> 

1013 

1 

5:8 

910 

READ(ANS>: 

1014 

1 

5:b 

921 

<»«R4t> 

1015 

1 

5:7 

921 

end: 

1014 

1 

5:5 

921 

end: 

1017 

1 

5:4 

921 

over: -false: 

loia 

1 

5:3 

925 

end; 

1019 

1 

5:1 

925 

UNTIL  over: 

1020 

1 

s:i 

930 

CURSYS:-SYSTEHCIi: 

1021 

1 

s:i 

948 

NCURSYSI-NSYSTENCli: 

1022 

1 

5:0 

945 

end; 

1023 

1 

5:0 

994 

See  previous  page  for  program  description. 
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1024 

1 

is:d 

1 

<t«9«)PflOCEIIURC  SUBSYSTEMFILES: 

102S 

1 

i5:o 

0 

BEGIN 

1026 

1 

is:i 

0 

F86HE :  >C0NCM  ( ‘  APHUTL : '  .COPY  ( CUhSTS ,  1 , 9  > , COP Y  ( CUKSP .  1 1 9  > . '  SUB '  > ; 

1027 

1 

is:i 

82 

OPENSUBFILES; 

1028 

1 

is:i 

84 

KEPEAT 

1029 

1 

19:2 

84 

ovcb::=true: 

1030 

1 

1912 

88 

PAGE(OUTPUT); 

1031 

1 

15:2 

98 

line:>cuf!Sp; 

1032 

1 

19:2 

109 

llength:«27: 

1033 

1 

1912 

109 

URITEC'I  have  data  For  the  following  (ubcrsteoc  of  erstaa.  'H 

1034 

1 

1912 

173 

shoualine: 

103S 

1 

1912 

179 

UBITELNC' 

1036 

1 

19:2 

193 

n[iata:<o: 

1037 

1 

19:2 

197 

FOR  i:>l  TO  10  BO 

1038 

1 

is:3 

211 

BEGIN 

1039 

1 

19:4 

211 

IF  SUBSYSCIIO"  THEN 

1040 

1 

i9:s 

231 

BEGIN 

1041 

1 

1916 

231 

URITELNl'  '.NSUBSTSII3,'.  '.SUBSYSCl]); 

1042 

1 

19t6 

313 

ndata:>i; 

1043 

1 

19:9 

317 

enb; 

1044 

1 

19:3 

317 

enb: 

104S 

1 

19:2 

327 

URITELN<'  'll 

1046 

1 

is:2 

349 

IF  NDATAwO  THEN 

1047 

1 

19:3 

392 

BEGIN 

1048 

1 

1914 

392 

URITELNi'  ...  non*')) 

1049 

1 

19:4 

382 

SI 

lOSO 

1 

19:3 

382 

END 

lost 

1 

13:2 

384 

ELSE 

10S2 

1 

is:3 

386 

REPEAT 

10S3 

1 

is:4 

386 

REPEAT 

1094 

1 

is:s 

386 

KEYNPREP<S4f 'Mhlch  MbtYaita  would  you  liko  to  onolyzt  (typo  0  for 
oono  of  ibo  obowo)?'!: 

loss 

1 

is:9 

463 

IF  1-999  TNEN 

1096 

1 

is:6 

474 

BEGIN 

1097 

1 

19:7 

474 

SUBSYSTEMFILES: 

1098 

1 

19:7 

476 

EXIKSUBSYSTEMFILES): 

1099 

1 

19:6 

480 

end; 

1060 

1 

is:9 

480 

IF(I<0>  OR  (I>10>  THEN 

1061 

1 

is:6 

493 

MRITELN( 'PLEASE  TYPE  AN  INTEGER  BETWEEN  0  AND  10') 

1062 

1 

19:4 

992 

UNTIL  (I>-0>ANO  (K-IO): 

SUBSYSTEMFILES  displays  the  names  of  the  defined  subsystems  for  a  given 
system. 


1M3 

1 

is:4 

343 

0K:«FALSEi 

10«4 

1 

ISM 

349 

IF  100  THEN 

104S 

1 

I5:s 

374 

BEGIN 

lOM 

1 

1314 

374 

ok:*true; 

1047 

1 

15:4 

380 

IF  SUfiSYStIl>"  THEN 

1048 

1 

is;7 

400 

BEGIN 

1049 

1 

1318 

400 

HRITELNiNSUBSYSin.'  DOES  NOT  EXIST  AT  PRESENT' >I 

1070 

1 

is:8 

449 

URITELNC 'PLEASE  TRY  ANOTHER  SYSTEM'); 

1071 

1 

15:8 

714 

0K!«FALSE 

1072 

1 

is:7 

714 

END; 

1073 

1 

is:s 

718 

END 

1074 

1 

13:4 

718 

ELSE 

1073 

1 

i3:s 

720 

BEGIN 

1074 

1 

is:4 

720 

ok:>true; 

1077 

1 

is:4 

724 

over:>false; 

1078 

1 

ISIS 

728 

END 

1079 

1 

is:3 

728 

UNTIL  ok; 

1080 

1 

is:2 

733 

IF  I«0  THEN 

1081 

1 

13:3 

740 

Si; 

1082 

1 

is:i 

742 

UNTIL  over; 

1083 

1 

is:t 

747 

cursub:*subsyscii; 

1084 

1 

is:i 

744 

NCURSUB:>NSUBSYSCn; 

1083 

1 

is:o 

781 

end; 

1084 

1 

is:o 

804 

See  previous  page  for  program  description, 


1087  1 

1088  1 

1089  1 

1090  1 

1091  1 

1092  1 

1093  1 

1094  1 

1095  1 

1096  1 

1097  1 

1098  1 

1099  1 

1100  1 
1101  1 
1102  1 

1103  1 

1104  1 

nos  1 
1106  1 

1107  1 

1108  1 

1109  1 

1110  1 
nil  1 
1112  1 

1113  1 

1114  1 

1115  1 

1116  1 

1117  1 

1118  1 

1119  1 

1120  1 
1121  1 
1122  1 


6:o  nttpopRocEbuftc  sn 

610  0  8ECIN 

6*1  0  MiEf’KEY(S4t 'Uould  you  liK*  to  add  subsysteat  to  Ihtt 

oil  54  IF  (ANS>'Y‘)  Oft  <ANS='y')  THEN 

612  67  HEGIN 

0:3  67  SUftSYSCftEATE: 

0:3  69  OVEft.'-FALSE 

612  69  END 

611  73  ELSE 

6:2  75  DEGIN 

6:3  75  FftEFKEY<33t'Uould  you  like  to  process  onother  doss  of  systeesT')! 

6:3  132  IF  ANS='Y'  THEN 

6:4  139  DEGIN 


6:S  139  SYSTEHFILESi 

6:S  141  SPSYSTEHFILES: 

615  143  SUDSYSTEHFILES: 

6:S  145  PASSNODE*.FLAGi:»Oi 

6:S  153  DftANCHOUTi 

615  155  HENU; 

6:4  157  end; 

6:3  157  PftEPKET(2« 'Uould  you  like  to  stop  for  now?'); 

6:3  194  IF  <ANS>'Y')  Oft  (ANS>'y')  THEN 

6:4  207  QUIT 

6:3  207  ELSE 

6:4  211  DEGIN 

6:5  211  HftlTELN(* THERE  ARE  NO  HORE  OPTIONS— SO  1  HILL  PRESENT  OPTIONS  LIST  AGAIN' >1 

615  294  HftlTELNl 'DDtPleose  pres*  any  key  to  continue*** ')» 

6:5  352  (**R-*) 

615  352  READ<ANS>: 

615  363  (*«RF«) 

614  363  end; 

614  363 

613  363  OVERleFALSEl 

612  367  END} 

610  367  END} 

610384 


SI  is  a  continuation  of  SUBSYSTEMFILES. 


1123  1  7:D  1  («*M>PM)CEDUiiE  S2S 

1124  1  7:0  0  KCIN 

1125  1  7:i  0  REPEAT 

112A  1  712  0  URlTEl'YiM  hov*  chosan  not  to  diwido  oyotoo  dost  SCURSYSf'  into  syctont'i 

1127  1  7:2  92  chr<13>i'Uould  you  lit*  to  procood  uith  applying  tho  oodol  to  this  systeo? 

1128  1  7:2  179  NEt.P:-331 

1129  1  7:2  183  KEY 

1130  1  7:i  183  UNTIL  (ANS>'Y'>  OR  (ANS-'N')l 

1131  1  7:i  198  IF  ANS>'Y'  THEN 

1132  1  7:2  20S  8E61N 

1133  1  7:3  205  FILESPNANE:-CONCAT('APHUTL:'»COPy(CURSYS>ltS>i'SP')t 

1134  1  7:3  2d2  OPENSPFILESI 

1135  1  7:3  204  RESET(SPSYSL1ST,F1LESPNAHE); 

1134  1  7:3  277  SEEK<SPSYSLlST»l>t 

1137  1  713  284  SPSYSLIST«.NSPSYS:«li 

1138  1  713  291  SPSYSLIST^.SPSYSKURSYS; 

1139  1  713  301  PUT(SPSYSLlST)t 

1140  1  713  309  CL0S£(SPSYSL1ST,L0CK>: 

1141  1  713  318  CURSPl-CURSYS: 

1142  1  713  324  NCURSPl-li 

1143  1  713  330  FRAME:-C0NCAT('APHUTL:'tC0PY(CURSYS.lt5>,C0PY(CURSP,l,5),'SUB')( 

1144  1  7:3  412  OPENSUBPILES; 

1145  1  713  414  RESET<SUBSYSL1ST,FRAHE>$ 

1144  1  713  427  SEEK(SUBSYSLIST,l)t 

1147  1  713  434  SUBSYSL1ST«.NSUBSYS:>1; 

1148  1  713  441  SUBSYSLIST«.SUBSYS:«CURSrS$ 

1149  1  713  451  PUT  (SUBSYSLlSTi; 

1150  1  713  459  CLOSE(SUBSYSLIST,LOCK)i 

1151  1  713  448  CURSUBlaCURSYSt 

1152  1  713  475  NCURSUB:>li 

1153  1  713  479  PASSN0DE*.FLAGi:«0; 

1154  1  713  487  BRANCHOUTl 

1155  1  713  489  MENU: 

1154  1  712  491  EHOi 

1157  1  7:0  491  ENBS 
use  1  710  508 

1159  1  7:0  508 

1140  1  710  508  («•!  «S:GREET2.TEXT«) 

1141  1  710  508 

1141  1  710  508  <««I  •S:GREET3.TEXT«) 


S2  is  a  continuation  of  SYSCREATE. 


iu:.‘ 

1 

ii:d 

1 

ittroF-nocEiiuFiE  of’Ensf’Files: 

IU3 

1 

ii:o 

0 

8EGIN 

1164 

1 

11  :o 

0 

116S 

1 

ii:i 

0 

fiESET(SF’SYSLIST.FILESPMnE>; 

1166 

1 

nil 

11 

(**lf*> 

1167 

1 

ii:i 

11 

IF  lORESULTOO  THEN 

1168 

1 

11:2 

17 

8EGIN 

1169 

1 

11:3 

17 

REUFll  TE  <  SFSYSL I  ST  .FILESPNAHE)  t 

1170 

1 

11:3 

30 

F08  11^1  TO  10  DO 

1171 

1 

11:4 

44 

BEGIN 

1172 

1 

11:5 

44 

SPSYSLIST^.NSPSYSl^n 

1173 

1 

11:5 

51 

SPSYSLIST*.SPSYS1="{ 

1174 

1 

11:5 

61 

SEEK(SPSYSi.lST,l); 

1175 

1 

Ills 

72 

PUT<SPSYSL1ST>: 

1176 

1 

11:5 

80 

IF  EOF(SPSYSLIST)  THEN 

1177 

1 

1116 

90 

BEGIN 

1178 

1 

11:7 

90 

HRITELNl'OUT  OF  DISK  SPACE!  H')! 

U79 

1 

11:7 

130 

anykey; 

1180 

1 

1117 

132 

EXIT(OPENSPFILES): 

1181 

1 

1116 

136 

end; 

1182 

1 

1114 

136 

end; 

1183 

1 

1113 

146 

CLOSE ( SPSYSL I ST , LOCK  > ; 

1184 

1 

11:3 

155 

RESET(SPSYSLIST.FILESPNAHE): 

1185 

1 

1112 

168 

end; 

1186 

1 

1111 

168 

BEGIN 

1187 

1 

1112 

168 

FOR  I1>1  TO  10  DO 

1188 

1 

1113 

182 

BEGIN 

1189 

1 

1114 

182 

SEEK<SPSYSL1ST,I>; 

1190 

1 

1114 

193 

GET(SPSYSLIST); 

1191 

1 

1114 

201 

nspsysci];>spsyslist''.nspsys; 

1192 

1 

1114 

219 

SPSYStl31-SPSYSLIST'‘.SPSYS; 

1193 

1 

1113 

239 

end; 

1194 

1 

1112 

249 

CLOSE ( SPSYSLI ST , LOCK  > ; 

1195 

1 

nil 

258 

end; 

1196 

1 

1110 

258 

end; 

1197 

1 

1110 

276 

OPENSPFILES  opens  file  containing  the  names  of  all  systems  for  a  particular 
system  class.  If  such  a  file  does  not  exist,  it  creates  one. 


1198  1  13:D  1  (MPtlPROCEIHIKE  SPSYSCREME: 

1199  1  13:0  0  8EGIN 

1200  1  1311  0  REPEAT 

1201  1  13:2  0  j:<o; 

1202  1  13:2  9  REPEAT 

1203  1  13:3  9  i:>iti: 

1209  1  13:2  12  UNTIL<I«10)  OR  (SPSrS£ll>"); 

1205  1  13:2  38  IF  1*10  THEN 

1206  1  13:3  93  REGIN 

1207  1  13:9  95  URITELN('«*«UARNIN6  STST:  NO  ROOM  FOR  MORE  SPSYSTEHS  FOR  SYSTEM  CLASS' ,CURSYS> 

1208  1  13:9  137  ANYKEYS 

1209  1  13:9  139  EXIT(SPSYSCREATE) 

1210  1  13:3  193  END 

1211  1  13:2  193  ELSE 

1212  1  13:3 195  GOSPSYSCREATES 

1213  1  13:i  197  UNTIL  OKS 

1219  1  13:0  152  ENDS 

1215  1  13:0  168 


SPSYSCREATE  enters  new  system  names  into  the  file  of  system  names  for  a 
particular  system  class. 


GOSPSYSCREATE  is  a  continuation  of  SPSYSCREATE. 


PREPSPCREATE  calls  OPENSPFILES  and  SPSYSCREATE  as  necessary. 


1276 

1 

1410 

1 

(MPOPKOCEDURE  SPSYSTEMFILES! 

1277 

1 

1410 

0 

SECIN 

1278 

1 

i4:i 

0 

F ILESPNAME : >C0NC6T ( ' APHUTL : ' >C0PV ( CUSSYS , 1 1 5 ) . ' SP ' ) ! 

1279 

1 

i4:i 

57 

openspfiles; 

1280 

1 

i4:i 

59 

REPEAT 

1281 

1 

1412 

59 

over:«true$ 

1282 

1 

14:2 

63 

PAGE (OUTPUT); 

1283 

1 

14:2 

73 

URITELN<'I  hove  doio  for  the  following  cyctoot  of  tytloo  clots:  SCURSYS) 

1284 

1 

14:2 

160 

n8ata:>o; 

128S 

1 

14:2 

164 

FOR  i:=l  TO  10  DO 

1286 

1 

14:3 

178 

DEGIN 

1287 

1 

14:4 

178 

IF  SPSYStlJO"  THEN 

1288 

1 

14:5 

198 

DEGIN 

1289 

1 

14:6 

198 

URITELN('  SNSPSYSCI],'’.  SSPSYStll); 

1290 

1 

1416 

280 

ndata:*i; 

1291 

1 

14:5 

284 

end; 

1292 

1 

14:3 

284 

end; 

1293 

1 

14:2 

294 

URITELNi' 

1294 

1 

14!2 

312 

IF  NDATA>0  THEN 

1295 

1 

14:3 

319 

DEGIN 

1296 

1 

14:4 

319 

URITELNI'  ...  non*')! 

1297 

1 

1414 

349 

SS 

1298 

1 

14:3 

349 

END 

1299 

1 

14:2 

351 

ELSE 

1300 

1 

14:3 

353 

REPEAT 

1301 

1414 

353 

REPEAT 

1302 

1 

1415 

353 

KEYNPREP<57t'iNiicN  tysioo  would  you  Itko  to  onolyzo  (typo  0  for 
non*  of  tho  oNovo)?'); 

1303 

1 

I4:s 

429 

IF  1-999  THEN 

1304 

1 

14:6 

438 

DEGIN 

1305 

1 

1417 

438 

SPSYSTEMFILES; 

1306 

1 

1417 

440 

EXIT(SPSrSTEHFILCS); 

1307 

1 

1416 

444 

end; 

1308 

1 

i4:s 

444 

IF(I<0>  OR  (I>10>  THEN 

1309 

1 

14:6 

457 

URITELNI 'PLEASE  TYPE  AN  INTEGER  DETWEEN  0  AND  10') 

1310 

1 

14:4 

516 

UNTIL  <I>-0)AND  (1<«10>; 

1311 

1 

14:4 

529 

ok:«false; 

1312 

1 

14:4 

533 

IF  I<>0  THEN 

1313 

1 

I4:s 

540 

DEGIN 

1314 

1 

14:6 

540 

ok: -true; 

SPSYSTEMFILES  displays  the  name  of  the  system  files  and  determines  which 
system  the  analyst  wishes  to  use. 


1315 

1 

1416 

544 

IF  SPSYSC13>"  THEN 

1316 

1 

1417 

564 

BEGIN 

1317 

1 

1418 

564 

UK'ITELNINSP'SYStll. ' 

DOES  NOT  EXIST  NT  FRESENT'); 

1318 

1 

1418 

633 

HhITELN('9LE6SE  TRY 

ANOTHER  SYSTEM'); 

1319 

1 

1418 

678 

ok:«fm.se 

1320 

1 

1417 

678 

end; 

1321 

1 

1415 

682 

END 

1322 

1 

14:4 

682 

ELSE 

1323 

1 

14:5 

684 

BEGIN 

1324 

1 

1416 

684 

0K:«TfrUE; 

1323 

1 

14:6 

688 

over:«ealse; 

1326 

1 

i4:s 

692 

END 

1327 

1 

14:3 

692 

UNTIL  ok; 

1328 

1 

14:2 

6V7 

IF  I-O  THEN 

1329 

1 

14:3 

704 

S3; 

1330 

1 

i4:i 

706 

UNTIL  over; 

1331 

1 

i4:i 

711 

cursf:«spsysci]; 

1332 

1 

i4:i 

729 

ncunsf:«nsfsyscii: 

1333 

1 

i4:o 

746 

end; 

1334 

1 

i4:o 

770 

See  previous  page  for  program  description. 


1335  1 
1334  1 

1337  1 

1338  1 

1339  1 

1340  1 

1341  1 

1342  1 

1343  1 

1344  1 

1345  1 
1344  1 

1347  1 

1348  1 

1349  1 

1350  1 

1351  1 

1352  1 

1353  1 

1354  1 

1355  1 
1354  1 

1357  1 

1358  1 

1359  1 

1340  1 

1341  1 

1342  1 


818 

e:o 

8:i 

8:i 

812 

8:3 

8:3 

8:2 

b:i 

8:2 

8:3 

s:4 

8:3 

8:3 

8:4 

8:5 

8:s 

8: 5 
815 
8:5 
814 
8:3 
8:3 
8:4 
813 
8:4 
8:5 
8:5 


0 

41 

74 

74 

74 

74 

80 

82 

82 

89 

91 

148 
155 
155 
157 
159 
147 

149 
171 
171 
208 
221 
221 
225 
225 
308 


THEN 


'Uould 

THEN 


you  like  to  procM*  another  class  of  systeesT'); 


KSSF-SlPROCEDUflE  SS; 

0  BEGIN 

PftEPKEY<57t 'Uould  you  like  to  add  systees  to  this  class  of  systeosT'); 

IF  (nNS>'Y')  OR  (RNS>'y')  THEN 
BEGIN 

spsyscreme; 
ouer:>false 

END 
ELSE 
BEGIN 

IF  N0nTA>0 
82$ 

PREPKEY<57, 

IF  RNS-'Y' 

BEGIN 

SYSTEHFILESt 
SPSYSTEHFILESi 
PASSNODE*.FLnCi:> 

BRANCHOUT) 

HENU: 

end; 

PREPKEY(2i 'Uould  you  like  to  stop  for  nouT')! 

IF  <ANS«'V')  or  <ANS>'y'>  THEN 
QUIT 
ELSE 
BEGIN 

URITELN< 'THERE  ARE  NO  HORE  OPTIONS-'SO  1  UILL  PRESENT  OPTIONS  LIST  AGAIN' >1 
URITELNC 'SttPlease  press  any  key  to  continue***' >1 


*0} 


1343  1  8:S  344 

1344  1  815  344 

1345  1  815  377 
1344  1  814  377 

1347  1  814  377 

1348  1  8:3  377 

1349  1  812  381 

1370  1  810  381 

1371  1  810  398 


<*SR-*) 

READ(ANS)$ 

<**Rf*) 

END! 

over: -false: 
end: 
end: 


1373  1  8':0  39e<StI  •S:GREET3.TEXT*> 

1374  1  810  398 


S5  is  a  contuation  of  SPSYSTEMFILES, 


137S 

1 

i:o 

0 

BEDIM 

1376 

1 

in 

0 

BMMNCHINi 

1377 

1 

in 

111 

IF  PASSNOIC^.FLMGIOI  THEN 

1378 

1 

1:2 

121 

BEGIN 

137? 

1 

1:3 

121 

hello; 

1380 

1 

1:3 

123 

PAGE(OUTPUT): 

1381 

1 

1:3 

133 

PREPKEYdi'Uould  you  liko  intlructiont  (type  yes  or  noi  then  press  the 
return  key)?'); 

1382 

1 

1:3 

211 

IF  ANS-'V'  THEN 

1383 

1 

1:4 

218 

instructions; 

1384 

1 

1:3 

220 

SYSTEHFILES; 

1385 

1 

1:3 

222 

SPSYSTEHFILES; 

1386 

1 

1:3 

224 

SUBSYSTEHFILES; 

1387 

1 

1:2 

226 

end; 

1388 

1 

in 

226 

branchout; 

138? 

1 

1:1 

228 

menu; 

13?0 

1 

1:0 

230 

END. 

MAINPROGRAM:  If  cold  start  1)  displays  title  page,  2)  determines  which  system 
class/system/and  subsystem  analyst  wants,  3)  determines  which  analytic  procedure 
analyst  wants  and  4)  branches  to  appropriate  analytic  procedure  for  system  class, 
system  and  subsystem  selected. 


PERFORMANCE  ITEM  PROGRAM  (PERFITEM) 


The  performance  item  program  allows  the  analyst  to  edit  the  performance 
items  (objectives,  functional  purposes  and  characteristics),  adding  items, 
removing  items,  rewording  items  and  printing  out  the  items  available. 


1 

1 

i:d 

2 

1 

i:d 

3 

1 

i:d 

4 

1 

i:d 

5 

1 

i:d 

i 

1 

i:o 

7 

28 

i:d 

8 

28 

2:d 

* 

28 

3:d 

10 

28 

4:d 

11 

28 

5:d 

12 

28 

o:o 

13 

28 

AID 

14 

1 

i:o 

15 

1 

l.‘D 

1  <ttL  PRINTER’.t) 

1  (««S4«) 

1  PROGRAM  Ruilddotoftlci 

3  (dProgroa  to  procoss  the  pcrforooncc  itMS*) 
3  (tRonald  6.  Shapiro  V2.0  10/2S/B2*) 


PROCEDURE  SETCHAIN ( T YTLE : STRING ) i 
PROCEDURE  SETCUAL(VAL!STRING): 
PROCEDURE  GETCVAL<VAR  UALiSTRlNG); 
PROCEDURE  SUAPOn: 

PROCEDURE  SUAPOFF; 

USES  CHAlNSTUFFi 


These  procedures  are  part  of  the  Apple  Computer's  CHAINSTUFF  library  entry 
The  demonstration  package  uses  only  SETCHAIN  which  causes  another  program 
to  be  activated. 


Id 

1 

i:d 

17 

1 

i:d 

le 

1 

i:d 

i? 

1 

i:d 

20 

1 

i:d 

21 

1 

i:d 

22 

1 

i:d 

23 

1 

i:o 

24 

1 

i:o 

2S 

1 

r.D 

26 

1 

i:d 

27 

1 

i:d 

28 

1 

t:D 

29 

1 

i:d 

30 

1 

i:d 

31 

1 

i:d 

32 

1 

i:d 

33 

1 

l.’D 

34 

1 

i:d 

3  (t«P«)CONST 

3  OBJLBLl>'Thc  tytlM  auit  b*  capoblt  of:'; 

3  0BJLBL2«'Th»  cyttoo  oust  corry  out  tlio  following  octivitioi:'; 

3  0BJLBL3«'Tho  syttM  oust  produce:'; 

3  OBJLBLtu'Perfornonci  objeciivet  Miot  be  net  despite:'; 

3  OBJLBLS*'Perforeance  objectives  east  be  eet  despite:'; 

3 

3  PPURlBLlB'Tbis  systea  capability  allows:*; 

3  FPURLBL2w'Tbe  reasons  for  carrying  out  this  activity  ore  to!'; 

3  FPUPLBL3>'This  product  will  be  used  by  the  systea  to:'! 

3  FPUPLBL4*' Systea  purposes  aust  be  satisfied  despite:'; 

3  FPURLBLS* 'Systea  purposes  aust  be  satisfied  despite:'; 

3 

3  CHARLBLl*'For  this  purpose*  the  systea  aust  hove  the  potentiol  for: 
3  CHARLBL2*'The  tasks  required  to  satisfy  this  activity  ore  to:'i 
3  CHARLBL3>'To  realize  that  product  the  systea  aust  first  produce:'; 

3  CHARLBL4>'Perforaance  characteristics  aust  be  occeptoble  despite:'; 
3  CHARLBLS^'Perforaonce  characteristics  aust  be  occeptoble  despite:'; 


35  1  1:D  3  <*«P«)TYPE 

3«  1  ItO  3 

37  1  1:D  3  PASSFILE*RECORD 

38  I  1:D  3  CURSYS>CURSP.CURSUB.PAC:STPINGC80]; 

39  1  1:D  3  NCUftSYS,NCURSP.NCURSU8tNPACfFLAGl,FLA62,PLAG3: integer; 

40  1  I  to  3  end; 

41  1  i:d  3 

42  1  1:D  3  DATABASE*RECORD 

43  I  i:il  3  NTAXAiARRAYC1..4]  OF  INTEGER! 

44  1  1:D  3  TAXAlSTRlNGCBOi; 

45  1  1!D  3  end; 

4«  1  i:o  3 

47  1  i;p  3  NELPFILE>RECORO 

48  1  1:D  3  LINE lARRAYCt.. 103  OF  STRINGC801; 

49  1  i:o  3  end; 

50  1  i:d  3 


PASSFILE  passes  information  about  1)  system  class  [CURSYS,  NCURSYS],  2) 
system  [CURSP,  NCURSP],  3)  subsystem  [CURSUB,  NCURSUB],  and  4)  aspect 
[PAC,  NPAC]  from  one  program  to  another.  Flag  1  is  used  to  tell  the 
GREETING  program  whether  to  begin  with  title  page  or  analytic  procedure 
list.  Flags  2  and  3  are  unused.  DATABASE  contains  the  performance  items. 
HELPFILE  contains  the  help  commands. 


51  1  1:D  3 

52  1  1:D  3  XCHMtM:,XFUNPUR,X0BJECTIVEtPACtCUftSyS.CURSP>CURSUB,ANSUER:STRlNGC80l; 

53  1  1:D  331  MISH0LD,ANS2,ANS:CHAR: 

54  1  1:D  334  DONE>OK,aVER,POS,NEG:BOOLEANi 

55  1  1:D  339  I,n,II2.JfK,L.n.N,NCHARAC,NFUNPUR,N0BJECTIVE>MPM;,NCURSYS.NCURSP,NCURSUB;iNTEGER 

54  1  i:0  354  INLINECM.LtPC,LLEN6TH|MLENGTH,PGE.J(£LP,TEHP2,LEAV£>HELP.NSCREEN.NPRINT,NPATA, 

NCORELAST: INTEGER! 

57  1  liD  347  TSCR,TEHP,CORELAST,En:lNTEGERIB]; 

58  1  1!D  379  NANEHELPFILE.NAnECOREFILE,NAHEDATAFlLE:STRIMGC24] ! 

59  1  i:il  418  REGLlNE.LlNE'.STRINGCBOIi 

40  1  ISO  500  APnilSK:STRlNGC8]; 

41  1  1:D  505 

42  1  1:D  505  ASPECT:ARRAYC1..5]  of  STRlNGtl43S 

43  1  1:D  545 

44  1  1!D  545  SCRATCH:ARRAYC1..20I0F  STRINGCBOli 

45  1  1:D  1345  nscratch:arrayci..20i  of  integer; 

44  1  1:D  1385 

47  1  1:D  1385  C0RE:ARRAYtl..3003  OF  1NTEGERC8I; 

48  1  i:0  2285 

49  1  1:D  2285  COREFILESFILE  OF  INTEGERCBi; 

70  1  ItD  2588  0ATAN0I)E:FILE  OF  DATABASE! 

71  1  1!D  2933  PASSNODEtFILE  OF  PASSFILE! 

72  1  1:0  3404  helper:  FILE  OF  HELPFILE! 

73  1  1:D  4114  prnt:text! 

74  1  1:D  4415 


These  strings,  arrays  and  variables  are  used  by  this  program 


7S 

1 

2:0 

(•tPtlPROCEDURE  CORECLOSE SFORUARD 

76 

1 

3iD 

PROCEDURE  CHARCREATEi FORWARD ; 

77 

1 

4:d 

PROCEDURE  CHARACTERISTICSiFORUARD 

78 

1 

510 

PROCEDURE  pcharcreateiforuard; 

7? 

1 

6:d 

PROCEDURE  OBJECTIVESiFORUARD; 

80 

1 

7:d 

PROCEDURE  FCC; FORWARDS 

81 

1 

8:d 

PROCEDURE  INDEXSFORWARDS 

82 

1 

9:d 

PROCEDURE  DELFUNS FORWARDS 

83 

1 

io:d 

PROCEDURE  DELCARS FORWARDS 

84 

1 

11:0 

PROCEDURE  DISPSCRATCHSFORWARDS 

85 

1 

12:d 

PROCEDURE  OBJCREATESFORWARDS 

86 

1 

13:d 

PROCEDURE  HELPROUT I NE  S  FORWARD  S 

87 

1 

14:d 

PROCEDURE  0BJ7S FORWARDS 

88 

1 

15:d 

PROCEDURE  FPURS forwards 

8V 

1 

15:d 

89 

1 

15:d 

<MI  •S:PERFITEH2.TEXT  «) 

90 

1 

i:d 

VAR 

91 

1 

i:d 

4415 

indent: INTEGERS 

92 

1 

i:d 

4416 

LINEOKSBOOLEANS 

93 

1 

1:0 

4417 

L0NGLINE:STRINGC12S]S 

94 

1 

i:d 

4480 

95 

1 

16:d 

PROCEDURE  KEYNS FORWARDS 

96 

1 

i7:ii 

PROCEDURE  KEYSFORWARDS 

97 

1 

18:d 

PROCEDURE  BRANCHOUTS FORWARDS 

98 

1 

19:d 

PROCEDURE  REMOVES FORWARDS 

99 

1 

2c:d 

PROCEDURE  PREF I XOS FORWARDS 

100 

1 

21  :p 

PROCEDURE  PREFIXES FORWARDS 

101 

1 

22:0 

PROCEDURE  PREF IXCS FORWARDS 

102 

1 

23:p 

PROCEDURE  ANYKEYSFORWARDS 

103 

1 

23:d 

These  procedures  are  presented  later  on  in  this  program 


104  1  24:0  I  <t«P»)PR0CE0URE  KEYHPftEP(MLP:iMTEGERS«SG:STRI«G) J 

105  1  24  to  0  OEGIN 

104  1  2411  0  MELPfHLPS 

107  1  24:i  9  imiTEinsG): 

log  1  24.’!  20  KEYNi 

109  1  24:o  22  end: 

110  1  24:0  34 


KEYNPREP  displays  a  one  line  message,  then  calls  KEYN  to  read  a  number  from 
the  keyboard. 


311 

P 

2s:d 

1 

(**P»>PR0CEI)UaC  PREF-K£Y(HLP:iNTEGER;MSG:STftING> ; 

n 

2s:o 

0 

KGIN 

sn 

H 

2s:i 

0 

help:-hlp: 

114 

1 

25:i 

9 

REPEAT 

115 

1 

2S:2 

9 

URITECHSO; 

lU 

1 

2S:2 

20 

key; 

117 

1 

25:1 

22 

UNTIL(ANS*'Y')  OR  <ANS*'N')} 

lie 

1 

2s:o 

35 

eng; 

119 

1 

2s:o 

50 

PREPKEY  displays  a  message  then  calls  KEY  to  read  a  letter  response  from  the 
keyboard.  If  a  response  is  not  Y,  y,  N,  n.  Yes  or  No,  it  redisplays  the  message 
and,  once  again,  waits  for  a  response. 


120  1  26:D  1  (MPt) PROCEDURE  PROPERDlSKi 

121  1  26:0  0  DEGIN 

122  1  2611  0  REPEAT 

123  1  26.*  1  0  (Ml-t) 

124  1  2612  0  RESET(HELPER,NANEHELPFILE>: 

125  1  2612  11  (Milt) 

126  1  26:2  11  k:>ioresult; 

127  1  26:2  16  IP  K*9  THEN 

126  1  26:3  23  DEGIN 

129  1  26:4  23  PAGE < OUTPUT ) $ 

130  1  26:4  33  URITELN< 'Pleo«e  reinstri  your  dato  disk  into  Drive  •  2 

131  1  2614  98  ANYKEYi 

132  1  26:3  100  end; 

133  1  26: 1  100  UNTIL  K09: 

134  1  26: 1  107  CLOSE (HELPER): 

135  1  26:o  116  end; 

136  1  26:o  130 


PROPERDISK  checks  to  be  certain  the  appropriate  subsystem's  disk  is  in 
Drive  #2. 


137  1  27:0  1  («fPt)PKOCEDURe  PRNTHELPi 

138  1  27:0  0  BEGIN 

139  1  2711  0  DONE! -false; 

140  1  27:i  4  REURITE<FRNT. 'PRINTER: '>: 

141  1  27: 1  2S  PAGE(PRNT); 

142  1  27:i  3S  IIRITELN(PRNT,CHR(  14), 'Analytic  Process  Hodel ' ,CHR(13) ) ) 

143  1  27:i  97  URITELN(PRNT,CHR<  14), 'Brief  Help  File',chr(13)),' 

144  1  27)1  1S2  pge:=2: 

145  1  27: 1  ISO  REPEAT 

144  1  27)2  ISO  SEEK ( HELPER, PGE); 

147  1  27:2  107  GET (HELPER): 

148  1  27:2  17S  PAGE<PRNT): 

149  1  27:2  185  K.'-PGE-l,' 

150  1  27:2  193  URITELN(PRNT,' 

151  1  27)2  245  '  Poqe  ',K); 

152  1  27:2  314  FOR  J:-1  TO  10  DO 

153  1  27:3  328  HRITELN(PRNT, HELPER'^. LINEIJ3) ; 

154  1  27:2  308  IF  C0PY<HELPER^.LINEC2},2,10)-'conclusion'  THEN 

155  1  27:3  405  DONE! -TRUE) 

ISO  1  27:2  409  PGE:-PGEii: 

157  1  27:i  417  UNTlL(IiONE): 

158  1  27 :i  422  PAGE<PRNT): 

159  1  27 :i  432  CLOSE (PRNT); 

100  1  27:o  441  end; 

101  1  27 :0  4S8 


PRNTHELP  prints  the  HELP  file  on  the  printer.  It  is  called  by  HELPROUTINE 


142 

1 

13:b 

1 

143 

1 

i3:o 

0 

144 

1 

l3:o 

0 

143 

1 

i3:i 

0 

144 

1 

I3:i 

18 

147 

1 

13: 1 

18 

148 

1 

13.*  1 

23 

149 

1 

13:2 

30 

170 

1 

13:3 

30 

171 

1 

13:3 

40 

172 

1 

13:3 

118 

173 

1 

13:3 

134 

174 

1 

13:3 

199 

173 

1 

13:3 

210 

174 

1 

13:2 

214 

177 

1 

I3:i 

214 

178 

1 

i3:i 

218 

179 

1 

i3:i 

224 

180 

1 

i3:i 

230 

181 

1 

13:2 

230 

182 

1 

13:2 

241 

183 

1 

13:2 

249 

184 

1 

13:2 

239 

IBS 

1 

13:2 

244 

184 

1 

13:2 

272 

187 

1 

13:2 

309 

188 

1 

13:2 

314 

189 

1 

13:3 

328 

190 

1 

13:2 

348 

191 

1 

13:3 

403 

192 

1 

13:2 

409 

193 

1 

13:2 

427 

194 

1 

13:2 

494 

193 

1 

1312 

589 

194 

1 

13:2 

444 

197 

1 

13:2 

472 

198 

1 

13:2 

472 

199 

1 

13:2 

489 

200 

1 

13:2 

708 

(MPt>PM)CCmWE  HELPPOUTINEt 
BEGIN 

RESET ( HELPER , ' *3 : HEtR ' > I 

(««I4») 

i:>ioresult: 

IP  (lOO)  THEN 
BEGIN 

PAGE (OUTPUT); 

HRITELN<‘UNFORTUNATELYt  THE  HELP  FILE  IS  NOT  AVAILABLE  ON  YOUR  MSK'); 
HRITELNC 

URITELNI 'PLEASE  PRESS  ANY  KEY  TO  CONTINUE  PROCESSING' >1 
RCAD(ANS): 

EXIT(HELPROUTINE>: 

ENO; 

i:-o; 

pge:«helpfi; 

iione:*false; 

REPEAT 

SEEK ( HELPER. PGE>: 

GET (HELPER): 

PAGE (OUTPUT); 

OOTOXY(73,0); 

k;»pge-i; 

HRITELN('Pogc  '.K); 

60T0XY(0.0): 

FOR  j:«l  TO  10  DO 
MRI TELN < HELPER* . L INECJ] ) : 

IF  C0PY(HELPER*.LINEt2}>2,10)='conclu«ion'  THEN 

done:«true: 

HR1TELN('  '); 

NRITELN('*«t«PLEASC  PRESS  RETURN  KEY  TO  VIEW  NEXT  PAGE**«t'); 
HRITELH('»«*fPLEASE  TYK  PAGE  NUHBER  AND  PRESS  RETURN  KEY  TO  VIEW 
ANOTHER  PAGEt***')! 

WRITE  ('MttPLEASE  PRESS  ESC  AND  RETURN  KEYS  TO  ESCAPE  HELP  ROUTINE****' ) 
POE;«PCEti; 

<*«R-*) 

answer:*'  ': 

READLN( ANSWER); 

*4gt( output); 


HELPROUTINE  displays  appropriate  help  commands  when  it  is  called  by  KEY  or 
KEYN.  HELPROUTINE  knows  which  HELP  to  display  because  the  calling  program 
places  the  appropriate  help  page  number  into  HELP.  Once  the  analyst  sees  the 
first  help  message,  he/she  can  ask  for  other  help  messages  by  typing  in  the  page 
number  of  the  desired  help  messages.  Note  that  the  HELP  file  is  made  by 
editing  a  series  of  files  (HELPl  .  .  .  HELPN)  using  the  Apple  editor.  Then, 
they  are  processed  by  the  BLOCKHELP  program  (see  Chapter  Vlll).  The  HELP 
file  produced  by  BLOCKHELP  is  suitable  for  use  with  the  HELPROUTINE. 
HELPROUTINE  "knows”  it  has  hit  the  last  page  of  the  file  because  the  word 
"conclusion"  appears  on  the  second  line  of  the  lest  page. 
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201 

1 

1312 

718 

IF  0RD<ANSUERCn>-27  TICK 

202 

1 

1313 

726 

BECIN 

203 

1 

1314 

726 

aOSE(HELFERU 

204 

1 

1314 

735 

properdisk: 

205 

1 

1314 

737 

(««R4*) 

200 

1 

1314 

737 

EXIT  (HELPROUTINE); 

207 

1 

1314 

741 

(«*R-«) 

208 

1 

1313 

741 

end: 

209 

1 

1312 

741 

IF  <ANSUERC1]>«'0'>  AND  (M(SUERC13<-'9' )  THEN 

210 

1 

1313 

756 

BEGIN 

211 

1 

1314 

756 

PGE : -ORB < ANSUERC 1 3 > -48 1 

212 

1 

1314 

765 

IF  (ANSUER[23>>'0'>  AND  (ANSUER[23<«'9' )  THEN 

213 

1 

1315 

780 

PGE:-PGE*10  *  0RD(ANSHERt2]>-48; 

214 

1 

1314 

795 

PGEl-PGEOil 

21S 

1 

1314 

803 

IF  PGE<2  THEN 

216 

1 

i3:s 

810 

pge:-2; 

217 

1 

1314 

814 

done:>falsei 

218 

1 

1313 

818 

end: 

219 

1 

1311 

818 

UNTIL  <DONE>  AND  ((ANSUERtlK'O' >  OR  (ANSHER[n>'9')); 

220 

1 

1311 

837 

PAGE* OUTPUT)! 

221 

1 

1311 

847 

PREPKEY(2, 'Mould  you  liK*  to  print  tho  help  filoT'); 

222 

1 

1311 

891 

IF  ANS-'Y'  THEN 

223 

1 

1312 

898 

BEGIN 

224 

1 

1313 

898 

KEYNPREP(2.'Ho«  oony  copios?  ')! 

22S 

1 

1313 

921 

FOR  n:>i  to  I  DO 

226 

1 

1314 

937 

PRNTHELPl 

227 

1 

1313 

949 

HR1TELN<‘D0NE'>S 

228 

1 

1312 

973 

ENDS 

229 

1 

1311 

973 

CLOSE (HELPER); 

230 

1 

1311 

982 

properdisk; 

231 

1 

1311 

984 

<«<R4*) 

232 

1 

1310 

984 

end; 

233 

1 

13:0 

1004 

See  previous  page  for  program  description. 


259 

1 

1618 

1 

(««P«) PROCEDURE  KEYNt 

256 

1 

1610 

0 

DEGIN 

257 

1 

1610 

0 

(*tR-«) 

258 

1 

16: 1 

0 

rnsuer:-'  '( 

259 

1 

16!1 

25 

REPEAT 

260 

t 

16:2 

29 

REPEAT 

26t 

1 

16:3 

25 

READLN( ANSWER); 

262 

1 

16:3 

44 

IF  LENGTH(ANSHER)*0  THEN 

263 

1 

16:4 

52 

NRITELNi 'Pl*o«*  tnicr  th*  integer  ogoin'>; 

266 

1 

16:2 

102 

UNTIL  LENGTH(ANSUER)<>0: 

265 

t 

16:2 

110 

ANS:«ANSUERCli; 

266 

1 

16:2 

117 

ANS2:-ANSHERC2}1 

267 

1 

16:2 

124 

IF  <ANS-'H')  OR  <ANS*'h')  THEN 

268 

1 

16:3 

137 

DEGIN 

269 

1 

16:4 

137 

helproutine; 

270 

1 

16:4 

139 

i:*999i 

271 

1 

16:4 

145 

EXIT<KEYN): 

272 

1 

16:3 

149 

end: 

273 

1 

16:2 

149 

ii:>ord(ans)-4b: 

274 

1 

16:2 

157 

II2:— i; 

275 

1 

16:2 

162 

II2:>0RD(ANS2>-48; 

276 

1 

16:2 

170 

IF  (IKO)  OR  <I1>9>  THEN 

277 

1 

16:3 

183 

NR ITELNC ‘PLEASE  RESFOND  WITH  AN  INTEGER!'); 

278 

1 

16: 1 

234 

UNTIL  (II>>0)ANIi  (II<10>; 

279 

1 

i6:i 

247 

i:-ii; 

280 

1 

i6:i 

253 

IF  (II2>-0)AND(II2<>9)  THEN 

281 

1 

16:2 

266 

l:>II«104I12: 

282 

1 

16:2 

278 

<t«R4«) 

283 

1 

l6:o 

278 

end; 

284 

1 

i6:o 

294 

KEYN  reads  a  1  or  2  digit  response  from  the  keyboard  and  places  it  into  I.  If 
an  H  or  an  h  are  typed  in,  it  places  a  999  in  I  and  calls  the  HELP  routine.  If 
more  than  2  characters  are  typed,  only  2  characters  ore  read.  The  rest  are 
ignored.  If  the  character(s)  are  not  positive  intergers,  KEYN  will  display  an 
appropriate  warning  and  wait  for  a  response. 


289 

1 

2310 

1 

(••POPROCEOURE  rnykey; 

288 

1 

2310 

0 

8E6IN 

287 

1 

2311 

0 

UR1TELN(' 

288 

1 

23: 1 

18 

HRITELN('9*9  PImm  prvs*  any  key  to  continu*  •tt'lt 

289 

1 

23: 1 

78 

(t«R-«) 

290 

1 

23: 1 

78 

RERD<ANS)t 

291 

1 

23: 1 

89 

(t«R4«) 

292 

1 

23:o 

89 

ENO: 

293 

1 

2310 

102 

ANYKEY  displays  "Please  Press  any  Key  to  Continue"  then  it  awaits  a  Keypress 
before  returning'  control  to  the  calling  procedure. 


294 

1 

1810 

1 

(««Pt)PR0CEDURE  BRANCHOUT 1 

295 

1 

1810 

0 

BEGIN 

294 

1 

1810 

0 

297 

1 

1811 

0 

RENRITE ( PASSNODE . ' PASSTHRU ' > } 

298 

1 

18: 1 

19 

299 

1 

I8:i 

19 

IPdORESULTOO)  THEN 

300 

1 

18:2 

25 

NRITE: 'SERIOUS  ERROR  —  NO  FILE  PASSTHRU  AT  BRANCHOUT') 

301 

1 

i8:i 

83 

ELSE 

302 

1 

18:2 

85 

BEGIN 

303 

1 

18:3 

85 

PASSNODE* . CURSYS : >CURSYS  S 

304 

1 

18:3 

94 

passnode''.cursp:  -cursp  : 

305 

1 

18:3 

103 

PASSNOOE* . CURSUB : >CURSUB 1 

304 

1 

1813 

112 

PASSNOOE^.PAC.'-PAC; 

307 

1 

18:3 

120 

PASSNODE'^ .  NCURSYS :  -NCURSYSl 

308 

1 

18:3 

130 

PASSNOOE^ . NCURSP: >NCURSP 1 

309 

1 

18:3 

140 

P ASSNODE  * . NCURSUB : -HCURSUB ; 

310 

1 

ib:3 

150 

PASSNOPE .  NP  AC :  <NP  AC  : 

311 

1 

18:3 

140 

PASSNOPE^.FLAGi:<i; 

312 

1 

18:3 

148 

PUT(PASSNOCiE)i 

313 

1 

18:3 

174 

IF  EOF<PASSNOPE)  THEN 

314 

1 

18:4 

184 

URITELN<'OUT  OF  DISK  SPACE  NHILE  WRITING  PASSTHRU' >; 

315 

1 

18:3 

244 

CLOSE (PASSNOOE. LOCK): 

314 

1 

18:2 

255 

end: 

317 

1 

i8:o 

255 

end: 

318 

1 

l8:o 

270 

BRANCHOUT  loads  the  PASSTHRU  file  with  appropriate  data  for  use  by  called 
programs. 


31? 

1 

28:» 

1 

(I•P•>PR0CE8URE  884NCH1N: 

320 

1 

28;o 

0 

8EGIN 

321 

1 

28:o 

0 

322 

1 

28:1 

0 

RESET ( PRSSNOOE  t ' PASSTHRU ' > 1 

323 

1 

28: 1 

19 

<MU«> 

324 

1 

28:i 

19 

IF  lORESULTOO  THEN 

32S 

1 

28:2 

25 

8EGIN 

324 

1 

28:3 

25 

rewrite: prssnode . 'Prssthru ' > : 

327 

1 

28:3 

44 

PASSN08E * . CURS YS : «  "  1 

328 

1 

28:3 

34 

passnope*.cursp:>"  1 

329 

1 

28:3 

44 

PASSN0PE*.CURSU8:«' ' 1 

330 

1 

28:3 

74 

PASSNOPE*.PAC:»"> 

331 

1 

28:3 

84 

PASSNOtiE''.NCURSYS:«01 

332 

1 

28:3 

92 

passno8e*.ncursp:-o: 

333 

1 

28:3 

100 

PASSNOOE  * . NCURSU8 : *0 1 

334 

1 

28:3 

108 

PASSN0DE*.NPAC:>01 

333 

1 

28:3 

114 

PUT(PASSH0PE)1 

334 

1 

28:3 

124 

IF  EOFtPASSNODE)  THEN 

337 

1 

28:4 

134 

WRITELN<'OUT  OF  PISK  SPACE  WHILE  WRITING  PASSTHRU' >1 

338 

1 

28:3 

194 

CLOSE ( PASSNOPE .LOCK  > 1 

339 

1 

28:3 

203 

RESET ( PASSNOPE . ' PASSTHRU ' ) 

340 

1 

28:2 

224 

ENP; 

341 

1 

28: 1 

224 

6ET(PASSN0PE)) 

342 

1 

28:i 

232 

CURSTS : ■PASSNOPE  * . CURSYS 1 

343 

1 

28: 1 

241 

CURSP : «P ASSNOPE  « . CURSP  $ 

344 

1 

28: 1 

230 

CURSUP :  -PASSNOPE  .  CURSUP ; 

343 

1 

28: 1 

259 

PAC : -PASSNOPE*. PACi 

344 

1 

28:1 

247 

NCURSYS : -PASSNOPE* . NCURS YS  S 

347 

1 

28: 1 

274 

NCURSP : -PASSNOPE  * . NCURSP i 

348 

1 

28: 1 

283 

NCURSUP : -PASSNOPE* . NCURSUPl 

349 

1 

28: 1 

294 

NPAC :  -PASSNOPE* .  NPAC 

330 

1 

28:1 

303 

CLOSE (PASSNOPE): 

331 

1 

28;o 

312 

ENp; 

332 

1 

28:0 

324 

BRANCHIN  gets  information  from  the  PASSTHRU  file  for  use  by  this  program 


'f 


353 

1 

2918 

1 

(•«P«)PR0CEDURE  INLINE! 

354 

1 

2910 

0 

BEGIN 

355 

I 

2911 

0 

REPEAT 

354 

1 

2912 

0 

READLN(LONGLINE)! 

357 

1 

2912 

20 

LINEOKKTRUEi 

358 

1 

2912 

24 

N1-LENGTH<L0NGL1NE)! 

35? 

1 

2912 

32 

IF  N>G0  THEN 

340 

1 

2913 

39 

BEGIN 

341 

1 

2914 

39 

HRlTELNl'ttUARNING  LINE  CONTAINS  OVER  80  CHARACTERS**' > ! 

342 

1 

2914 

103 

HRITELNl'  ')! 

343 

1 

2914 

121 

NRITELNl'BO  YOU  NISH  TO  TRUNCATE  TO  80  CHARACTERS*')! 

344 

1 

2914 

182 

REPEAT 

345 

1 

2915 

182 

HELP!>39! 

344 

1 

2915 

184 

KEY 

347 

1 

2914 

184 

UNTIL  (AHS«'T')  OR  (ANS«'N')! 

348 

1 

2914 

201 

IF  ANS«'N'  THEN 

349 

1 

2915 

208 

BEGIN 

370 

1 

2914 

208 

lineok:«false! 

371 

1 

2914 

212 

URITELNl 'PLEASE  RE-ENTER  LINE!')! 

372 

1 

2915 

253 

END 

373 

1 

2914 

253 

ELSE 

374 

1 

2915 

255 

H!«80i 

37S 

1 

2913 

259 

END! 

374 

1 

2911 

259 

UNTIL  LINEOK! 

377 

1 

2911 

244 

INLINECALL 1 «1NL INECALLFl ! 

378 

1 

2911 

272 

IF  INLINECALL>2S  THEN 

379 

1 

2912 

279 

BEGIN 

380 

1 

2913 

279 

URITELN! 'HARNINGI  You  bovf  entered  over  25  neu  perforoonce  iteos'. 

381 

1 

2913 

344 

chr<13)>'  durinq  this  session.  This  is  the  linit  olloued  in  the', 

382 

1 

2913 

424 

chr<13),'  deoonstrotion  systeo.  To  enter  oore,  pleose  Select  o', 

383 

1 

2913 

501 

ehr(13),'  Different  Anolytic  Procedure.  This  uill  re-initio)i:e' , 

384 

1 

2913 

579 

chr<13)f'  the  stock  pointer  ond  ollou  you  to  enter  nore  itens!')! 

385 

1 

2913 

443 

anykey; 

384 

1 

2912 

445 

END! 

387 

1 

2911 

445 

SCRArCHCI31*C0PY(L0NGLIN£,l,H)! 

388 

1 

2910 

494 

end; 

389 

1 

2910 

714 

INLINE  accepts  up  to  80  characters  of  text.  If  more  than  80  characters  are 
specified,  it  asks  if  it  ought  to  ignore  additional  characters.  If  told  to,  it  does. 
Otherwise,  it  allows  analyst  to  re-enter  the  line. 


422 

1 

3118 

1 

(t«l>«)f>liOCEDURE  PRINTTOPI 

423 

1 

3110 

0 

BEGIN 

424 

1 

3i:i 

0 

H 1 -LENGTH (CURSYSIS 

42S 

1 

3i:i 

7 

IF  H>16  THEN 

426 

1 

31:2 

14 

H!-16i 

427 

1 

3i:i 

18 

LINEl-COPTCCURSrS.l.N); 

428 

1 

31:1 

36 

URITE<PRNT,'*'.LINE.'  SyciMt')} 

429 

1 

31:1 

78 

N:-16-LENGTH(CURSYS>1 

430 

1 

31:1 

87 

FOR  l:-i  to  n  do 

431 

1 

31:2 

103 

URITEIPRNT,'  Mi 

432 

1 

3i:i 

123 

H 1 -LENGTH <CURSP)i 

433 

1 

31:1 

130 

IF  H>16  THEN 

434 

1 

31:2 

137 

N:-16i 

435 

1 

3111 

141 

line: -COPY <CURSP,1.N>! 

436 

1 

31:1 

159 

WRITE(PRNT,'«',LINE)! 

437 

1 

31:1 

181 

N:-16-LENGTH(CURSP)! 

438 

1 

3111 

190 

FOR  l:-i  to  n  do 

439 

1 

3112 

206 

HRITE<PRNT,'  Mi 

440 

1 

3111 

226 

n:>LENGTH<CURSUB>i 

441 

1 

3111 

233 

IF  H>16  THEN 

442 

1 

3112 

240 

H:-i6i 

443 

1 

31:1 

244 

LI NE : -COP Y ( CURSUB , 1 . H ) i 

444 

1 

3111 

262 

HRnE(PRMT,'*',LINE){ 

445 

1 

3111 

284 

N 1 6-LENGTH ( CURSUB ) i 

446 

1 

3111 

293 

FOR  l:>i  TO  n  do 

447 

1 

3112 

309 

HRITEIPRNT,'  Mi 

448 

1 

3111 

329 

HRITELN<PRNT,'*'.PAC>i 

449 

1 

31:1 

359 

IF  NPRIMTM  THEN 

450 

1 

3112 

366 

UR1TELN(PRNT,  'Ob.jective:c '  >N0BJECT1UE. 

451 

1 

31:1 

431 

IF  NPRINT>2  THEN 

452 

1 

3112 

438 

HR 1 TELH  <  PRNT , ' Fe  1 1  Prp» : t ' t  NFUNPUR , ' 3 ' 

453 

1 

31:1 

503 

UR1TELN(PRNT,'  M{ 

454 

1 

31:0 

521 

ENDi 

455 

1 

3i:o 

540 

'3',X0BJECTIWE>; 

,XFUMFUR>; 


PRINT-TOP  prints  the  current  system  class,  system,  subsystem,  etc.,  on  the 
printer. 


45A 

1 

32:d 

1 

(ftpopROCEMiRE  pkintsckn: 

457 

1 

32:o 

0 

8EGIN 

458 

1 

32: 1 

0 

REURlTEtPRNT, 'PRINTER: ' >1 

459 

1 

32: 1 

21 

PRGE(PRNT): 

440 

1 

32: 1 

31 

PRINTTOPi 

441 

1 

32: 1 

33 

CLOSE(PRNT>: 

442 

1 

32: 1 

42 

CLOSE (OUTPUT): 

443 

1 

32: 1 

51 

REURiTE<ouTPUT, 'printer:'); 

444 

1 

32: 1 

72 

IF  NPRINT«1  THEN 

445 

1 

32:2 

79 

BEGIN 

444 

1 

32:3 

79 

WRITE: 'Objectives—' >: 

447 

1 

32:3 

103 

PREFIXO; 

448 

1 

32:2 

105 

end: 

449 

1 

32:1 

105 

IF  NPRINT«2  THEN 

470 

1 

32:2 

112 

BEGIN 

471 

1 

32:3 

112 

HR1TE( 'Functional  purposes—'): 

472 

1 

32:3 

145 

prefixf; 

473 

1 

32:2 

147 

end: 

474 

1 

32:1 

147 

IF  NPRINT-3  THEN 

475 

1 

32:2 

154 

BEGIN 

474 

1 

32:3 

154 

write:  'Characteristics—')} 

477 

1 

32:3 

183 

PREFIXO 

478 

1 

32:2 

185 

end: 

479 

1 

32:1 

185 

CLOSE (OUTPUT) : 

480 

1 

32:1 

194 

REWRITE (OUTPUT . ' CONSOLE : ' ) } 

481 

1 

32:1 

215 

REWRITE (PRNT . 'PRINTER : ' > } 

482 

1 

32:1 

234 

WRITELN(PRNT,'  '): 

483 

1 

32:1 

254 

FOR  K:>1  TO  20  00 

484 

1 

32:2 

248 

BEGIN 

485 

1 

32:3 

248 

IF  SCRRTCHCKIO"  THEN 

484 

1 

32:4 

288 

BEGIN 

487 

1 

32:5 

288 

NDRT4:«i: 

488 

1 

32:5 

292 

WRITELN(PRNT,'  ',NSCRRTCHCK3, ' .  '.SCRlSTCHCKD 

489 

1 

32:4 

370 

end: 

490 

1 

32:2 

370 

end: 

491 

1 

32:1 

380 

IF  NDATR>0  THEN 

492 

1 

32:2 

387 

HRITELN(PRNT,'I  have  no  doto  at  this  tieeltlM'): 

493 

1 

32: 1 

439 

CLOSE (PRNT); 

494 

1 

32:0 

448 

end: 

495 

1 

32:0 

442 

PRINTSCRN  prints  the  performance  items  currently  being  displayed  on  the  screen. 


1 

33  :d 

1 

(ttrtlPROCEPURE  torscreen; 

<97 

1 

33:o 

0 

BEGIN 

498 

1 

3311 

0 

RAGE (OUTPUT); 

499 

1 

3311 

10 

h:>len6th(cursys): 

SOO 

1 

33:i 

17 

IF  N>14  then 

SOI 

1 

33:2 

24 

m:>14; 

S02 

1 

33:i 

28 

LlNE:>COPY(CURSySfltH); 

503 

1 

33: 1 

44 

URITEl't'.LINE,'  SytiMs'): 

504 

1 

33: 1 

88 

Gt>Taxr(24tO); 

SOS 

1 

33: 1 

93 

n:>length<cursp): 

504 

1 

33: 1 

100 

IF  H>14  THEN 

507 

1 

33:2 

107 

n:<i4: 

SOB 

1 

33:1 

111 

line:ccopy(cursp.i.h>: 

509 

1 

33:1 

129 

UR1TE<'«',L1NE); 

510 

1 

33:1 

151 

60T0XY<44t0): 

511 

1 

33:1 

154 

h:>length(cursub); 

512 

1 

33:1 

143 

IF  HM4  then 

513 

1 

33:2 

170 

n:>14; 

514 

1 

33:1 

174 

LINE : >C0PY ( cursub , I ,h> : 

SIS 

1 

33:1 

192 

WRITELN('«',LINE>; 

Sli 

1 

33:1 

222 

G0TaXY(42.0): 

517 

1 

33:1 

227 

hriteln<'*',pac); 

518 

1 

33:1 

257 

H : ‘LENGTH ( XOB JECT lUE  > ; 

519 

1 

33:1 

245 

IF  H>47  THEN  M:=47; 

520 

1 

33:1 

274 

LINE : ‘COPY ( XOB JECTIUE . 1 t H ) ; 

521 

1 

33:1 

295 

IF  NSCREEN>1  THEN 

522 

1 

33:2 

302 

HRITELN( 'ObJectiveC ' .NOBJECTIUE, ' 1 ! ' .LINE) ; 

523 

1 

33:1 

370 

h:‘LEngth<xfunpur); 

524 

1 

33:1 

378 

IF  M>47  THEN  H:‘47; 

525 

1 

33:1 

389 

L INE : ‘COPY ( XFUNPUR . 1 .H ) I 

524 

1 

33:1 

408 

IF  NSCREEN>2  THEN 

527 

1 

33:2 

415 

HRITELN( 'Fetl  Prpst ' .NFUNPUR, ' 3 : ' .LINE) ; 

528 

1 

33:1 

483 

«RITELN<'  '); 

529 

1 

33:0 

SOI 

end; 

530 

1 

33:0 

514 

TOPSCREEN  displays  the  system  class,  system,  subsystem,  etc.,  on  the  top  of 
the  display  screen. 


-76- 


531 

1 

34SD 

1 

(«*Pt)P80CEDURE  OPENCOREFILE! 

532 

1 

3410 

0 

BEGIN 

533 

1 

3410 

0 

(•«!-«> 

534 

1 

34:1 

0 

RESET  <  COREF I LE . N6HEC0REFILE ) t 

535 

1 

34:1 

11 

<««I4t) 

536 

1 

34:1 

11 

li-IORESULT! 

537 

1 

34:1 

16 

IF  100  THEN 

536 

1 

34:2 

23 

BEGIN 

539 

1 

34:3 

23 

REWRITE ( COREFILE . N6HEC0REFILE ) ; 

540 

1 

34:3 

36 

FOR  i:>l  TO  300  DO 

541 

1 

34:4 

52 

BEGIN 

542 

1 

34:5 

52 

coRECi]:>o; 

543 

1 

3415 

79 

COREF  ILE'^l’CORECn! 

544 

1 

34:5 

107 

PUKCOREFILE); 

545 

1 

34:5 

115 

IF  E0F(C0REFILE>  THEN 

544 

1 

34:6 

125 

BEGIN 

547 

1 

34:7 

125 

HRITELN< 'OUT  OF  DISK  SPACE •!•')} 

548 

1 

34:7 

165 

ANYKEYS 

549 

1 

34:7 

167 

branchout; 

550 

1 

34:7 

169 

SETCHA1N( 'GREETING')! 

551 

1 

34:7 

183 

EXIKPROGRAN)! 

552 

1 

34:6 

187 

END! 

553 

1 

34:4 

187 

END! 

554 

1 

34:3 

197 

corelast:>o! 

555 

1 

34:3 

212 

ncorelast:=0! 

556 

1 

34:3 

216 

C0REFILE'':>C0RELAST! 

557 

1 

34:3 

232 

PUrtCOREFILE)! 

558 

1 

34:3 

240 

CLOSE(COREFILE,LOCK) 

559 

1 

34:2 

249 

END 

560 

1 

34:1 

249 

ELSE 

561 

1 

34:2 

251 

BEGIN 

562 

1 

34:3 

251 

FOR  i:«l  TO  300  DO 

563 

1 

34!4 

267 

BEGIN 

564 

1 

34:5 

267 

GET < COREFILE)! 

565 

1 

34  :s 

275 

CORECns*COREFILE''! 

566 

1 

34:4 

303 

ENDS 

567 

1 

34:3 

313 

GETICOREFILE)! 

568 

1 

34:3 

321 

CORELAST!=COREFILE''! 

569 

1 

34:3 

337 

NCOREL AST ! =TRUNC ( C0RELA5T ) ! 

570 

1 

34:3 

350 

CLOSE  ( COREF ILE) 

571 

1 

34:2 

359 

ENDS 

572 

1 

34:0 

359 

END! 

573 

1 

34:0 

380 

OPENCOREFILE  reads  the  index  to  the  performance  item  file  into  core, 


-w*  "Ml  k  ■ 


574 

1 

3s:d 

1 

(ttP«> PROCEDURE  OPENOBJFILE; 

575 

1 

3s:o 

0 

BEGIN 

576 

1 

3510 

0 

<*«I-*) 

577 

1 

3s:i 

0 

RESET ( DAT6NOOE , NAHEDAT AF ILE ) ; 

578 

1 

3511 

11 

<»»14*> 

579 

1 

35:1 

11 

IF  lORESULTOO  THEN 

580 

1 

35:2 

17 

BEGIN 

581 

1 

3S:3 

17 

URITELN( 'Please  bear  with  ee  while  I  wake  rooe  For  your 

582 

1 

35:3 

76 

'analysis  on  the  disk'); 

583 

1 

35:3 

116 

REURITE(DATANODE.NAHEDATAFILE> 1 

584 

1 

35:3 

129 

FOR  i:>l  TO  4  DO 

585 

1 

35:4 

143 

OAT  ANODE'' .  NTAXAC 1 3  t^O; 

586 

1 

35:3 

168 

FOR  i:=l  TO  300  DO 

587 

1 

3S:4 

184 

BEGIN 

588 

1 

35:s 

184 

datanode''.taxa:="; 

5B9 

1 

35:5 

194 

SEEK(DATANODE«I); 

590 

1 

35:5 

205 

PUT (DAT ANODE); 

591 

1 

35:5 

213 

IF  EOF (DAT ANODE)  THEN 

592 

1 

35:6 

223 

BEGIN 

593 

1 

35:7 

223 

URITELN('OUT  OF  DISK  SPACE'!!') 

594 

1 

35:6 

263 

end; 

595 

1 

3514 

263 

end; 

596 

1 

35:3 

273 

CLOSE ( DATANODE.LOCK ) : 

597 

1 

35:3 

282 

RESET ( DATANODE . NAHEDATAF ILE ) 

598 

1 

3512 

295 

end; 

599 

1 

3S!0 

295 

end; 

600 

1 

3s:o 

314 

601 

1 

3s:o 

314 

602 

1 

35;o 

314 

(•♦I  ♦5!FERFITEH2.TEXT  *) 

603 

1 

3s:o 

314 

604 

1 

35:0 

314 

OPENOBJFILE  creates  the  performance  item  file  if  it  does  not  already  exist 


A05 

1 

22:d 

1 

<««Pt>9ROCCOURC  PRCFIXCi 

606 

1 

22:0 

0 

SCGIN 

607 

1 

22:1 

0 

CASE  HPAC  OF 

60S 

1 

22:1 

5 

1:  URITELN(CHARL8L1> 

609 

1 

22:1 

84 

2:  URITELN(CHARLBL2) 

610 

1 

22:1 

157 

3!  UR1TELN<CHARLBL3) 

611 

1 

22:1 

233 

4:  WRITELN(CHARLBL4) 

612 

1 

22:1 

310 

5!  URITELNCCHARLBLS) 

613 

1 

22U 

367 

end: 

614 

1 

22:0 

404 

end: 

619 

1 

22:0 

420 

PREFIXC  displays  sentence  prefixes  for  a  characteristic 


1 

21  :d 

1 

(XPOPROCEDURE  PREFIXES 

«17 

1 

21  :o 

0 

BEGIN 

AtB 

1 

2i:i 

0 

CASE  NP6C  OF 

A19 

1 

2i:i 

5 

i:  URITELN(FPURLBLl); 

620 

1 

21  :i 

57 

2:  UR1TELN(FPURLBL2)I 

621 

1 

2i:i 

129 

3:  URITELN(FPURLBL3); 

622 

1 

2i:i 

194 

4:  URlT£LN(FPURLBL4)i 

623 

1 

2i:i 

258 

5!  URITELN(FPURLBLS); 

624 

1 

21  ;i 

322 

ENDS 

62S 

1 

21  :o 

340 

end; 

626 

1 

2i:o 

356 

PREFIXF  displays  sentence  prefixes  for  a  functional  purpose. 


1  (»«P*)PROCEDURE  PREFIXO; 

0  BEGIN 
0  CASE  NPAC  OF 

5  i:  URITELNIOBJLBLDI 

17  2:  URITELN<0BJLBL2>: 

>0  3:  WR1TELN(0BJLB1.3M 

'6  a:  URITELNIOBJIBLA); 

tl  5!  URITELN(OBJLBLS); 

>6  END) 

M  END) 


PREFIXO  displays  sentence  prefixes  for  an  objective, 


(••POPMCEDUKE  aspects: 

SEGIN 

REPEAT 

PAGE (OUTPUT); 

HRITELNC'You  ore  currently  onolyzing  subtyctee  'tCURSUBrCHR(13>f '  of  the  ' 
CURSYSt'  clot*  of  systees'); 

MRITELNC'  ')} 

ASPECT! 11 : > ' Potent iol ities ' 1 
ASPECTC2] : >'Processes ' } 

ASPECT[33:«'Product«'; 

ASPECTC4i:>'Environeent''; 

ASPECTC31!-‘Constroint«'; 

help:-8; 

IIRITELN('To  proceed  with  the  onolytis  you  eoy  exoaine  the  following' )» 
URITELN('  ospccts  of  perforaonceS ' >i 
FOR  i:-l  TO  S  DO 

MRITELHi'  '.ASPECTtlDi 

WR1TELN('  0<  Select  o  different  onolytic  procedure')! 

WRITELNC'  '); 

URlTE('Which  ospect  of  subsystea  '>CUftSUtif'  would  you  like  to  onolyzeT'); 
REPEAT 

keyn; 

IF((1<0)  OR  <I>5))  AMD  (10999)  THEN 

MRITELN( 'PLEASE  SELECT  AN  INTEGER  PETUEEM  0  AND  5'),' 

UNTlL((l>-0)  AND  (1<»5>)  OR  (1=999); 

UNTIL  10999! 

IF  1=0  THEN 
BEGIN 

CORECLOSE ; 

BRANCHOUT ; 

SETCHAIN( 'GREETING'); 

EXIT  (PROGRAM); 

end; 

pAc:«ASPECTcn; 

NPAc:>i; 

URITELN('You  hove  chosen  to  onolyie  the  ',PAC.'  ospect' >CHR(13>i ’  of  subsystea 
CURSUBr'  perforaonce* ' >; 

end; 


ASPECTS  allows  analyst  to  select  the  aspect  he/she  intends  to  use. 


477 

1 

37!D 

1 

(ttPtlPROCEOURE  FPURl 1 

478 

1 

3710 

0 

BEGIN 

479 

1 

3711 

0 

G0T0XY<0>14); 

484 

1 

37: 1 

s 

UR1TE(CHR(11))) 

481 

1 

37: 1 

15 

REPEAT 

482 

1 

37:2 

IS 

HRlTE('Mhich  functional  purpoca  would  you  liko  to  onolyzo  (Typo  0  to 
Tocan«idcr)T')} 

483 

1 

37:2 

101 

HELP:-15a 

484 

1 

37:2 

103 

KEVNt 

483 

1 

37:2 

107 

IF  1«999  THEN 

484 

1 

37:3 

114 

FPURt 

487 

1 

37:2 

lie 

IF(I<0>0R(1>20)THEN 

488 

1 

37:3 

131 

URITELN( 'PLEASE  INPUT  AN  INTEGER  BETWEEN  1  AND  20' >1 

489 

1 

37:2 

191 

1F(I>0)AND(I<20)THEN 

490 

1 

37:3 

204 

IF  SCRATCHCI3-"  TICN 

491 

1 

37:4 

224 

BEGIN 

492 

1 

37:3 

224 

URITELNlIt'  DOES  NOT  EXIST  AT  PRESENT')} 

493 

1 

37:5 

282 

URITELN( 'PLEASE  TRY  ANOTHER  FUNCTIONAL  PURPOSE')} 

494 

1 

37:3 

339 

i:-2S} 

493 

1 

37:4 

343 

END} 

496 

1 

37:1 

343 

UNTIL  (I><0)  AND  <I<20)} 

497 

1 

37:1 

334 

IF  I>0  THEN 

498 

1 

37:2 

343 

BEGIN 

499 

1 

37:3 

343 

NFUNPUR : >NSCRATCHC I 3 } 

700 

1 

37:3 

380 

XFUNPUR : sSCRATCHC 1 3 } 

701 

1 

37:3 

398 

CHARACTERISTICS} 

702 

1 

37:2 

400 

END} 

703 

1 

37:0 

400 

END} 

704 

1 

37:0 

414 

FPURl  asks  the  analyst  which  functional  purpose  he/she  would  like  to  analyze 
when  he/she  requests  to  analyze  characteristics. 


705 

1 

38:0 

1 

(OfPttPROCEDURE  FUNCCREATE! 

706 

1 

3810 

0 

BEGIN 

707 

1 

3811 

0 

REPEAT 

708 

1 

3812 

0 

nscreen:>2; 

700 

1 

3812 

4 

topscreen; 

710 

1 

3812 

6 

URITELN('You  hovt  chosen  to  creole  o  neu  functionol  purpose.')! 

711 

1 

38!2 

77 

HRlTELNt'  ')! 

712 

1 

3812 

95 

INDEX! 

713 

1 

38:2 

97 

IF  1>0  THEN 

7H 

1 

38!3 

104 

EXIT(FUNCCREATE)! 

715 

1 

38:2 

108 

FCCi 

716 

1 

38:i 

110 

UNTIL  OK! 

717 

1 

38:o 

115 

END! 

718 

1 

38:o 

130 

FUNCCREATE  helps  analysts  to  create  new  functional  purposes  by  finding 
appropriate  index  for  the  new  purpose. 


an 


719 

1 

710 

1 

<ttP*) PROCEDURE  FCC; 

720 

1 

7:o 

0 

DEGtN 

721 

1 

7:i 

0 

MRITELNl 'PlMM  «ptciry  (80  odditionol  charocitr*  ovoilablc)  the  neu  'f 

722 

1 

7:i 

72 

'functionel  purpose  'ichrcnit'  within  the  'tPRCf 

723 

7tt 

149 

'  aspect  of  the  '>CURSUD>'  syste*.'): 

724 

1 

7S1 

215 

URITE(CHR(13>>; 

72S 

1 

7:i 

225 

prefixf; 

724 

1 

7:i 

227 

inline; 

727 

1 

7:i 

229 

IF  SCRATCHCn*"  THEN 

72B 

1 

7:2 

249 

EXIT (FUNCCRER TCI : 

729 

1 

7:i 

253 

NSCRRTCHin:-!; 

730 

1 

7:i 

270 

HRITELNi'Done'); 

731 

1 

7:i 

294 

DRT4N0DE'' .  NTRXAt  1 1 ^NPRC  } 

732 

1 

711 

309 

DAT4N0DE* . NT AX4C  21 : -NOD JECTIUE 1 

733 

1 

7:i 

324 

DRTANODE* . NT AXhC3 1 : >NSCRATCHC I 3 ; 

734 

1 

7:i 

350 

OATANOOE‘*.NTAXAC43  :>0: 

735 

1 

7:i 

343 

DAT ANODE* . T AXA : ^SCRATCHC 1 3 1 

734 

1 

711 

383 

REPEAT 

737 

1 

712 

383 

BEGIN 

736 

1 

713 

383 

J:«TRUNC( COREL AST); 

739 

1 

7:3 

394 

IF  J>-300  THEN 

740 

1 

714 

405 

BEGIN 

741 

1 

7:5 

405 

URITELN<'*««  ERROR  —  YOUR  DATA  SET  ALREADY  CONTAINS  300  PERFORMANCE 

ITEMS'  »*«'); 

742 

1 

7:5 

495 

WRITELN('«««  THUS,  THIS  ITEM  HAS  NOT  ADDED  TO  DATA  SET  ***'>; 

743 

1 

7:5 

573 

anykey: 

744 

1 

7:5 

575 

EXIT<FUNCCREATE): 

745 

1 

7:4 

579 

end; 

744 

1 

7:3 

579 

CORELAST:>CORELASTti; 

747 

1 

7:3 

404 

j:*jti; 

748 

1 

713 

412 

ncorelast:=j; 

749 

1 

7:3 

418 

EIi:«C0RECJ3  DIU  loooooo; 

750 

1 

7:2 

475 

end: 

751 

1 

7tl 

475 

UNTIL  Ell  *0; 

752 

1 

7:i 

493 

tehp:«npac: 

753 

1 

7:i 

710 

tscr:<nodjective: 

754 

1 

7:i 

727 

CORCCJ3:>TEMP»10000004TSCR«100004NSCRATCHtI3»100tO: 

755 

1 

7:i 

838 

seek<datanode,j); 

754 

1 

7:1 

847 

PUT(DATANODE); 

757 

1 

7:1 

857 

IIRITELN(‘It  will  be  necessary,  ot  sone  tine,  to  odd  chorocteristics  to  this'. 

chr<13> ,  'function 

FCC  accepts  the  new  functional  purpose  and  stores  it  in  the  performance  item 
data  set. 


7S8  17:i  987  fRCPKEY (17 1* Mould  you  like  to  opacify  choractaristics  at  this  tiaaT')! 

739  1  7:1  1048  IF  ANS>'Y'  THEN 
74017:21053  BEGIN 

741  1  7:3  1033  xfunpur:«scratchci]$ 

742  1  7:3  1073  NFUNPUR.’^NSCRATCHCIli 

743  1  7:3  1090  pcharcreate; 

744  1  7:3  1092  CHARCREATEi 

745  1  7:31094  EXIT(FUNCCREATE)  t 

744  1  7:2  1098  END; 

747  1  7:1  1098  PREPKEY(15i 'Mould  you  like  to  specify  >ore  functional  purposes  for  this  objective?'); 

748  1  7:1  1174  IF  ANS-'Y'  THEN 

749  1  7:21181  ok:-false- 

770  1  7:1  1181  else 

771  1  7:2 1187  EXIT(FUNCCREATE); 

772  1  7:0  1191  end; 

773  1  7:0  1208 


See  previous  page  for  program  description. 


774 

1 

910 

1 

(ttrtIPROCEDURE  DELFUNi 

775 

1 

910 

0 

BEGIN 

774 

1 

911 

0 

REPEAT 

777 

1 

912 

0 

G0T0XY(0.14)t 

778 

1 

912 

5 

URITE<chr(ll)i'Uhich  one  do  you  want  to  roaovclType  0  to  roconf idcr) 1 ' 

777 

1 

912 

81 

HELPlwlGi 

780 

1 

912 

83 

keyh; 

781 

1 

912 

87 

IF  I>999  THEN 

782 

1 

913 

94 

FPURt 

783 

1 

912 

98 

IF  (I<0>  OR  <I>20)  THEN 

784 

1 

913 

111 

HRITELNl 'PLEASE  TYPE  AN  INTEGER  BETWEEN  0  AND  20')! 

783 

1 

911 

170 

UNTIL  (I>-0)ANti(l<21); 

784 

1 

911 

183 

IF  I«0  THEN 

787 

1 

912 

190 

BEGIN 

788 

1 

913 

190 

EXITIDELFUN); 

789 

1 

912 

194 

ENDl 

790 

1 

911 

194 

PREPKEYdSt'Oo  you  really  want  to  reiiove  this  functionol  purpose  t  ossoc 
chorocteristics  ?'){ 

791 

1 

911 

277 

IF  ANS«'N'  THEN 

792 

1 

912 

284 

BEGIN 

793 

1 

913 

284 

EXIT(DELFUN) 

794 

1 

912 

288 

end; 

795 

1 

911 

288 

j:-o; 

794 

1 

911 

292 

REPEAT 

797 

1 

912 

292 

temp:*hpac; 

798 

1 

912 

309 

j:>jti; 

799 

1 

912 

317 

IF  (CORECJI  DIV  lOOl'lTEl^tlOOOOtNOBJECTIVEtlOO'fl)  THEN 

800 

1 

913 

392 

rehove: 

801 

1 

911 

394 

UNTIL  ONCORELAST) 

802 

1 

910 

401 

end; 

803 

1 

910 

420 

DELFUN  asks  analyst  which  functional  purpose  he/she  wishes  to  remove  and 
removes  the  functional  purpose  and  its  component  characteristics. 


804 

1 

3918 

1 

(ttPilPROCEMlRE  FPUR4i 

SOS 

1 

39:0 

0 

BEGIN 

806 

1 

3911 

0 

G0T0XY(0.16): 

807 

1 

39:1 

5 

URITELN(CHR<ll))i 

808 

1 

39:1 

23 

REPEAT 

809 

1 

3912 

23 

URITELNl'You  hove  chosen  to  reword  0  functionol  purpose' >1 

810 

1 

39:2 

89 

URITELNl'  ')$ 

811 

1 

39:2 

107 

URITELNI 'Which  one  do  you  wont  to  reword  (Type  0  to  reconsider)?  'll 

812 

1 

39:2 

183 

HELP1»15} 

813 

1 

39:2 

187 

KEYNl 

814 

1 

3912 

189 

IF  1=999  THEN 

815 

1 

3913 

198 

FPURl 

816 

1 

3912 

200 

IF  (KO)  OR  <I>20)  THEN 

817 

1 

3913 

213 

URITELNI 'PLEASE  TYPE  AN  INTEGER  BETUEEN  0  AND  20' >1 

818 

1 

3911 

272 

UNTIL  (I>-0)  AND  (I<21>: 

819 

1 

3911 

285 

IF  1=0  THEN 

820 

1 

3912 

292 

EXIT(FPUR4)1 

821 

1 

3911 

296 

IF  SCRATCH!  1 3-"  THEN 

822 

1 

3912 

316 

BEGIN 

823 

1 

3913 

316 

MRITELN(NSCRATCHC11,'  DOES  NOT  EXIST')) 

824 

1 

3913 

374 

CXIT(FP0R4)j 

823 

1 

3912 

378 

END) 

826 

1 

3911 

378 

60T0XY(0,16)) 

827 

1 

3911 

383 

HRITELN(CHR(11))) 

828 

1 

3911 

401 

URITELN( 'Pleose  reword  (80  choracters  available)  the  functional  purpose') 

829 

1 

3911 

483 

URITE(CHR(13))) 

830 

1 

3911 

493 

PREFIXF) 

831 

1 

3911 

495 

INLINE) 

832 

1 

3911 

497 

IF  SCRATCHCn="  THEN 

833 

1 

3912 

517 

EXIT<FPUR4>) 

834 

1 

3911 

521 

NSCRATCHCni'I) 

835 

1 

3911 

538 

DATANODE*.NTAXACllt»HPAC) 

836 

1 

3911 

553 

DAT ANODE* . NTAXAC  2 1 1 «N0B JECT I V£ ) 

837 

1 

3911 

568 

tiATANODE*.NTAXAt3}l=NSCFcATCHn3) 

838 

1 

3911 

594 

DAT ANODE* .NTAXAC  431*0) 

839 

1 

3911 

607 

DAT ANODE* . TAXA 1 =SCRATCH( 1 3 ) 

840 

1 

3911 

627 

TEnP:=NfAC) 

841 

1 

3911 

644 

TSCR1«N0PJECTIWE) 

842 

1 

3911 

661 

TEHPl=TEMP»10000004TSCR»100004NSCfiATCHCI3»100tO) 

843 

1 

3911 

760 

J1*0) 

844 

1 

3911 

764 

REPEAT 

845 

1 

3912 

764 

J)=J4i; 

846 

1 

3911 

772 

UNTIL  TEHP>C0RECJ3) 

847 

1 

3911 

803 

URITELNl'OK')) 

848 

1 

3911 

825 

SEEK (DAT ANODE, J)) 

849 

1 

3911 

836 

PUT(DATANODE)) 

850 

1 

3910 

844 

end; 

851 

1 

3910 

860 

FPUR4  asks  the  analyst  which  functional  purpose  to  reword  and 
it  asks  them  to  reword  the  functional  purpose. 


r> 


-■  j.-* jf  ^ j,-y _v-»  - ■  •J." 


es2 

1 

4o:o 

1 

(««Pt>PROCEIIUftE  FPUft3; 

8S3 

1 

4o:o 

0 

BEGIN 

634 

1 

4o:i 

0 

URITELNI 'PlMf»  b*  certain  that  the  printer  is  ON  ond  ONLINE!!!!!'); 

833 

1 

4o:i 

74 

nprint:>2: 

834 

1 

40:i 

80 

printscrn; 

837 

1 

4o:o 

82 

end; 

838 

1 

4o:o 

94 

FPUR5  calls  PRINTSCRN  to  print  the  entire  contents  of  the  functional  purpose 
display. 


es9 

1 

41  :d 

1 

PROCEDURE  FPUR7; 

MO 

1 

4i:o 

0 

BEGIN 

B41 

1 

4i:i 

0 

ASPECTS} 

862 

1 

41  :i 

2 

objectives; 

863 

1 

4i:o 

4 

end; 

864 

1 

4i:o 

16 

FPUR7  calls  ASPECTS  and  OBJECTIVES  so  the  analyst  can  specify  a  new  aspect. 


843  1  42:8  1  (*«Pt>PROCEIIURE  SELECTFPSi 

846  1  42!0  0  BEGIN 

847  1  42:i  0  GOTOXr«>.14>: 

848  1  42:i  5  URITELN<CHf<(ll)): 

849  1  42:i  23  WRITE('You  aay  ptrfora  ony  of  the  following  procedures:'tChr(13)r 

870  1  42:i  93  '  It  Anolyzo  choraroctoristics  2.  Specify  new  functionol  purposes' ichrC 13) i 

871  1  42: 1  187  '  3.  Reaove  o  functionol  purpose  4.  Reword  o  functional  purpose' fChr( 13) • 

872  1  42: 1  277  '  S<  Print  these  functionol  purposes  4<  Anolyze  o  different  objective' ichr( 13) > 

873  1  4211  349  '  7.  Analyze  o  different  aspect  8<  Select  a  different  analytic  proc.'tchr<i3) 

874  1  42:i  44S  'Please  select  one!  '){ 

875  1  42: 1  494  REPEAT 

876  1  42:2  494  HELP*.  >151 

877  1  4212  500  KEYN; 

878  1  4212  502  IF  1>999  THEN 

879  1  4213  511  FPURi 

880  1  4212  513  IF  (Kl)  OR  (I>0)  THEN 

881  1  42:3  524  URITELN( 'Pleose  type  an  integer  between  1  ond  8')! 

882  1  42: 1  584  UNTIL  (I>>1)  AND  <I<>8); 

883  1  42: 1  597  GOTOXY(0,14) > 

884  1  42: 1  402  UR1TE(CHR(11>): 

885  1  42: 1  412  CASE  I  OF 

884  1  4211  417  i:  FPURI ; 

887  1  42*.!  421  2:  FUNCCREATEl 

888  1  42:i  425  3:  DELFUN) 

889  1  4211  429  41  FPUR4: 

890  1  42: 1  433  5:  FPUR5: 

891  1  42:i  437  4.*  OBJECTIVES: 

892  1  4211  441  7*.  FPUR7; 

893  1  4211  445  8)  0BJ7;  (tYES,  IT  IS  0K«) 

894  1  4211  449  END) 

395  1  42:0  472  END) 

394  1  42: 0  484 


SELECTFPS  displays  analytic  options  available  to  the  analyst  at  the  bottom  of 
the  functional  purposes  page. 


8*7 

1 

ISID 

1 

(8*P»)*R0CEmmE  FPURi 

8*8 

1 

1510 

0 

8E61N 

8** 

1 

1511 

0 

NSCREEN:«2i 

900 

1 

1511 

4 

TOPSCREENi 

*01 

1 

15:i 

6 

URITEl 'Functional  purpoM* — '>{ 

*02 

1 

1511 

3* 

PREFlXFt 

*03 

1 

1511 

41 

FOR  j:>l  TO  20  00 

*04 

1 

1512 

55 

lEOlN 

*05 

1 

1513 

55 

SCRATCHCJi:«"{ 

*06 

1 

1513 

73 

NSCRATCHCJ}:-J 

*07 

1 

1512 

86 

EMi: 

*08 

1 

1511 

100 

FOR  i:*l  TO  NCORELAST  00 

*0* 

1 

1512 

116 

0E61N 

*10 

1 

1513 

116 

IF  CORECn  OIV  lOOGO-ttf-ACtlOOtNOBJECTIVE  THEN 

*11 

1 

1514 

165 

8EG1N 

*12 

1 

1515 

165 

IF  CORECn-CORECn  OIV  10000  *  10000  <>  0  THEN 

*13 

1 

1516 

23* 

BEGIN 

*14 

1 

1517 

23* 

IF  CORECll  •  COREtll  OIV  100  •  100  >  0  THEN 

*15 

1 

15:8 

309 

BEGIN 

*16 

1 

15:* 

30* 

SEEKlOATANOOE.ni 

*17 

1 

15:* 

320 

GET  (OATANODEX 

918 

1 

15:* 

328 

J: -OAT ANODE* .NTAXAC3] 1 

*1* 

1 

15:* 

343 

NSCRATCHC : >OAT ANODE* . NTAXAC  33 1 

*20 

1 

15:* 

36* 

SCRATCHC  J3  :«DATANODE* .  TAXA,' 

*21 

1 

15:8 

38* 

end: 

*22 

1 

is:6 

38* 

end: 

*23 

1 

15:4 

389 

end: 

*24 

1 

15:2 

38* 

end; 

*25 

1 

is:i 

3** 

dispscratch: 

*26 

1 

i5:i 

401 

IF  N0ATA>0  THEN 

*27 

1 

is:2 

408 

UR1TELN('1  do  not  have  any  funciionol  purpoatt  for 

*28 

1 

1512 

478 

NOBJECTIVE,'  at  tho  pratant  tint')! 

*2* 

1 

i5:i 

530 

SELECTFPS: 

*30 

1 

15: 1 

532 

fpur; 

*31 

1 

i5:o 

534 

end; 

*32 

1 

i5:o 

556 

FPUR  governs  the  primary  display  of  functional  purposes. 


*33 

1 

519 

1 

inpoimoccDURC  pchmckeotei 

*34 

1 

s:o 

0 

BEGIN 

*35 

1 

5:t 

0 

FOR  Jt-1  TO  20  90 

*36 

1 

512 

14 

BEGIN 

*37 

1 

5.‘3 

14 

SCRATCHCJ]!«"| 

1 

s:3 

32 

NSCRATCHtJi:>J 

*3* 

1 

5:2 

45 

end; 

*40 

1 

sto 

5* 

ENBI 

*41 

1 

s:o 

74 

PCHARCREATE  clears  the  STRATCH  array  which  is  used  in  producing  the  body 
of  the  display  for  objectives,  functional  purposes  and  characteristics. 


?42 

1 

SID 

1 

(ttrtipRocEDURE  index; 

f43 

1 

t:o 

0 

DEGIN 

944 

1 

811 

0 

ii>o; 

945 

1 

811 

4 

FOR  Jl-20  POWNTO  1  00 

946 

1 

812 

18 

OECIN 

947 

1 

813 

18 

lF(SCRATCH[Jl-"> 

THEN 

94S 

1 

814 

38 

Il-Ji 

949 

1 

812 

44 

end; 

950 

1 

811 

54 

IF  1-0  THEN 

951 

1 

812 

61 

DEGIN 

952 

1 

813 

61 

URITELNl'Rll  20 

indCKcs  «»•  currtnily  in 

953 

1 

813 

118 

rntkey; 

954 

1 

812 

120 

end: 

955 

1 

810 

120 

end; 

956 

1 

810 

134 

956 

1 

810 

134 

<041  OSIFERFITEHI.TEXT*) 

INDEX  determines  whether  there  are  20  objectives  for  a  given  aspect,  20 
functional  purposes  for  a  given  objective  or  20  characteristics  for  a  given 
functional  purpose  before  allowing  new  performance  items  to  be  added.  If 
the  maximum  are  in  use,  additional  items  cannot  be  added. 


W7 

1 

4318 

1 

(OmiMtOCEWRE  OBJCMKl 

9M 

1 

4310 

0 

8E8IN 

Wt 

1 

43!  1 

0 

MTANOIIE* .  NTAXAC 1 1 :  >N9M;  1 

VM 

1 

4311 

IS 

MTANOK* .  NTAXAC21 :  >NSCRATGMCI  3 1 

Ml 

1 

43:1 

41 

8ATAN08E*.NTAXAr33 :>0} 

M2 

1 

43:1 

54 

8ATAN0DE* .  NT  AX  AC4  3 !  >0 1 

943 

1 

43:1 

47 

OATANOOe* . TAX A! ■SCRATCHt I 3 1 

944 

1 

43:1 

87 

RCKAT 

94S 

1 

43!2 

87 

BEGIN 

944 

1 

43:3 

87 

J!-TRUNC(COR£LAST)t 

947 

1 

43:3 

100 

IF  J>-300  THEN 

94B 

1 

43:4 

109 

BEGIN 

949 

1 

43:5 

109 

HRITELNC'OO*  ERROR  TOUR  BATA  SET  ALREADY  CONTAINS  300  PERFORMANCE 

ITEMS! 

970 

1 

4313 

199 

NRlTaNl'M*  THUS,  THIS  ITEM  HAS  NOT  rDEB  TO  BATA  SET  «*»'>{ 

971 

1 

4313 

277 

ANYKEYS 

972 

1 

43!3 

279 

EXIT(OBJCREATE)t 

973 

1 

43:4 

283 

end: 

974 

1 

43:3 

283 

CORELAST :«C0RELAST41 S 

973 

1 

43!3 

308 

J:-J61S 

974 

1 

43:3 

316 

EIi:<C0REtJ3  DIV  1000000: 

977 

1 

43:3 

373 

ncorelast!«j: 

97B 

1 

43:2 

379 

ENDS 

979 

1 

43:1 

379 

UNTIL  Eli  >0; 

9B0 

1 

43:1 

397 

TEHP!«NPACS 

9B1 

1 

43:1 

414 

TSCRS-NSCRATCHCIIS 

982 

1 

43:1 

442 

CORECJ3:>TEHP«10000004TSCR«1000040*10040S 

9B3 

1 

43:1 

340 

SEEK (OAT ANODE «J>S 

984 

1 

43:1 

331 

PUT (OAT ANODE )S 

983 

1 

43:0 

359 

ENDS 

984 

1 

43:0 

576 

OBJCNODE  adds  a  new  objective  to  the  performance  item  list 


w 

1 

4410 

1 

(•tPOPROCEWJKE  OBJli 

«aB 

1 

44!0 

0 

BEGIN 

w 

1 

44:1 

0 

tMITE( 'Which  objective  would  you  like  to  onolyze  (type  0  to  reconsider) 

wo 

1 

44:1 

77 

REPEAT 

W1 

1 

44:2 

77 

HELP:>23i 

W2 

1 

44:2 

81 

keyn; 

093 

1 

44:2 

83 

IF  I»999  THEN 

994 

1 

44:3 

92 

objectives; 

995 

1 

44:2 

94 

IF<I<0)0R(I>r0)THEN 

994 

1 

44:3 

107 

WRITELN( 'PLEASE  INPUT  AN  INTEGER  BETWEEN  0  AND  20' )t 

997 

1 

44:2 

147 

IF  I>0  THEN 

998 

1 

44:3 

174 

IF  SCRATCHC13>"  THEN 

999 

1 

44:4 

194 

BEGIN 

1000 

1 

44:3 

194 

WRITELNd.'  DOES  NOT  EXIST  AT  PRESENT'); 

1001 

1 

44:5 

232 

WRITELNC 'PLEASE  TRY  ANOTHER  OBJECTIVE'); 

1002 

1 

44:5 

300 

i:<2s; 

1003 

1 

44:4 

304 

end; 

1004 

1 

44:1 

304 

UNTIL  (I>-0>  AND  (I<20); 

1005 

1 

44:1 

317 

IF  <I>0)  AND  <I<21)  THEN 

1006 

1 

44:2 

330 

BEGIN 

1007 

1 

44:3 

330 

NOB JECT I VE : -NSCRATCHt I 1 ; 

1008 

1 

44:3 

347 

XOB JECT I VE : -SCRATCHC I 1 t 

1009 

1 

44:3 

345 

fpur; 

1010 

1 

44:2 

347 

end; 

1011 

1 

44:0 

347 

end: 

1012 

1 

44:0 

384 

OBJl  asks  analyst  which  objective  he  wishes  to  analyze  when  he  requests  to 
analyze  functional  purposes. 


1«13  1  12:|t  l(Mr«>PMICEMRE  OBJCREATE; 

1014  1  I2:o  0 

BE61N 

lOlS  1  1211  0 

REPEAT 

1014  1  12:2  0 

NSCREEN!«i; 

1017  1  12:2  4 

topscreen; 

1010  1  12:2  6 

ORITELNl'Tou  Aowt  cAomo  to  crMtc  0  objcctiv#. 

1010  1  1212  00 

URITELNl'  'll 

1020  1  12:2  00 

index; 

1021  1  12:2  00 

IF  1>0  THEN 

1022  1  12:3  OS 

EXIT (OBJCREATE); 

1023  1  12:2  00 

HRITELN( 'PIms*  tpocify  (80  AtfOitionol  chor«ct»r»  ovoiloblv) 

the  new  objective' t 

1024  1  12!2  100 

CHR<13)|'  within  th«  '.PACt'  o<p»ct  of  iht  '.CURSUBi 

'  subsystee'); 

1025  1  12:2  204 

HRITE(CHR(13l>t 

1020  1  12:2  304 

PREFIXO; 

1027  1  12:2  300 

inline; 

1020  1  12:2  300 

IF  SCRATCHtll-"  THEN 

1020  1  12:3  320 

EXIT(OBJCREATE); 

1030  1  1212  332 

NSCRATCHCI3:>i; 

1031  1  12:2  340 

OBJCNODE; 

1032  1  1212  351 

HRITELN('Ok'); 

1033  1  12:2  373 

URITELNCIt  willf  ot  «on«  tiMi  b#  nocMsory  to  odd  functionol  purpocct  and'rchr(13>f 

1034  1  12:2  401 

'  charact«ri«tict  to  thi*  objectiv*'); 

1035  1  12:3  510 

PREPKEY(17f 'Would  you  lik*  to  specify  functionol  purpose*  at 

this  tine*'); 

1030  1  12:2  SOI 

IF  ANS«'Y'  THEN 

1037  1  12:3  500 

BEGIN 

1030  1  12:4  500 

XOB JECTIOE : >SCRATCHC 1 1  i 

1030  1  12:4  000 

NOBJECTIVE :  -NSCMTCHt  1 3 ) 

1040  1  12:4  023 

PCHARCREATE;  (IYESi  its  0Kt> 

1041  1  12:4  025 

funccreate; 

1042  1  1214  027 

EX1T(0BJCREATE>; 

1043  1  12:3  031 

end; 

1044  1  1212  031 

PREPKE Y< 23 t 'Would  you  like  to  specify  eore  objectives*' >; 

1045  1  12:2  079 

IF  AHS«'Y'  then 

1040  1  12:3  080 

Ox:>FALSC 

1047  1  1212  080 

ELSE 

1048  1  12:3002 

cxit(objcreate>; 

1040  1  12:1  090 

UNTIL  ok; 

1050  1  12:0  701 

1051  1  12:0  710 

end; 

OBJCREATE  accepts  a  new  performance  item  and  calls  OBJCNODE  to  add  it 
to  the  list  of  performance  items. 


REMOVE  removes  unwanted  performance  items  from  the  performance  item  file. 


1  (•tP«>PM)CEIIURE  DELOBJi 
0  BEGIN 
0  REPENT 

0  60T0XY(0,1G)I 

S  NRITE<chr<lI)t'IMiich  one  Bo  you  with  to  rooovt  (Type  0  to  rocontidor)!*); 

»2  keyn: 

94  IF  (KO)  OR  (1>20)  THEN 

97  HR1TELN( 'PLEASE  INPUT  M(  INTEGER  BETWEEN  0  ANB  20') I 

S7  UNTIL  (1>-0)AND<I<21)I 

70  IF  I-O  THEN 

77  BEGIN 

77  EXIT<BELOBJ)t 

91  ENBi 

11  PREPKEY(23t 'Bo  you  roolly  wont  to  rooovo  thit  objoctivo  t  cooponont  functionol 

purpoootT ' ) : 

13  IF  ANS<'N'  THEN 

70  BEGIN 

70  EXIT(DELOBJ) 

74  ENBt 

74  j:-o; 

78  REPEAT 
78 

BA  IF  (C0RECJ3  BIU  10000 )«<NPACt 1004 I)  THEN 

35  REMOVE: 

37  UNTIL  <J>NCORELAST> 

44  end: 


DELOBJ  asks  analyst  whi<!h  objective  lie/she  wishes  to  remove  and  calls  REMOVE 
to  remove  the  objective  and  component  functional  purposes  and  characteristics. 


1090 

1 

4418 

1 

(••rOPMCEOURE  08 J4; 

1091 

1 

4410 

0 

8C6IN 

1092 

1 

4411 

0 

60T0Xr(0>14n 

1093 

1 

4411 

5 

MiTEicmnnn 

1094 

1 

44:1 

IS 

repeat; 

109S 

1 

44:2 

IS 

MRITELNl 'You  bov*  cho*»n  to  roword  on  objtctivt.')! 

1094 

1 

4412 

74 

HRITELNl'  Ml 

1097 

1 

4412 

92 

HRITEl'IlMch  ont  do  you  wont  to  roword  (Typo  0  to  rocontider)?  ')! 

1098 

1 

4412 

140 

keyn; 

1099 

1 

4412 

142 

IF  (KO)  OR  <I>20)  THEN 

1100 

1 

4413 

175 

MRITELNl 'PLEASE  TYPE  AN  INTEGER  8ETUEEN  0  AND  20'); 

1101 

1 

4411 

234 

UNTIL  (I>-0)  AND  <I<21); 

1102 

1 

4411 

247 

OOTOXY(Orl4>: 

1103 

1 

4411 

2S2 

MRiTEicHRinn; 

1104 

1 

44:1 

242 

IF  I-O  THEN 

nos 

1 

4412 

249 

EXIT(0BJ4); 

1104 

1 

4411 

273 

IF  (SCRATCHtI>")THEN 

1107 

1 

4412 

293 

8EGIN 

1108 

1 

4413 

293 

MRITELNINSCRATCHCII.'  DOES  NOT  EXIST'),* 

1109 

1 

4413 

3S1 

EXIT(0BJ4); 

1110 

1 

44:2 

3SS 

ENO: 

nil 

1 

4411 

3SS 

MRITELNl 'Ploolo  roword  180  choroctor*  ovoiloblo)  this  objoctivo. ' )! 

1112 

1 

4411 

430 

MRirElCHRtl3)>: 

1113 

1 

4411 

440 

PREFIXO: 

1114 

1 

4411 

442 

inline; 

1115 

1 

4411 

444 

IF  SCRATCHtn*"  THEN 

1114 

1 

4412 

444 

EXITIOBJCREATE); 

1117 

1 

4411 

448 

NSCRATCHCni>l; 

1118 

1 

4411 

48S 

OAT  ANODE** .  NT  AXAC 1 1 1  «NPAC  1 

1119 

1 

4411 

SOO 

DAT  ANODE  ** .  NTAXAC  21 1  -NSCRATCHC 1 3 1 

1120 

1 

4411 

S24 

OAT ANODE* . NT AXAC  3] 1 «0 ; 

1121 

1 

4411 

539 

DATAN0DE*.NTAXAC4i:*0; 

1122 

1 

4411 

552 

OATANODE*.  TAXA  .'oSCRATCNE  I},* 

1123 

1 

4411 

572 

TEHPloNPAC: 

1124 

1 

4411 

589 

TSCRloNSCRATCHCn; 

1125 

1 

4411 

417 

TENP ; • TENfS 1 000000+  TSCR* 1 0000+0* 1 00+0{ 

1124 

1 

4411 

703 

ji»o; 

1127 

1 

4411 

707 

REPEAT 

1128 

1 

44:2 

707 

j!«j+n 

1129 

1 

4411 

715 

UNTIL  TEHP'CORECJi; 

1130 

1 

4411 

744 

MRITELNl 'Oh'); 

1131 

1 

4411 

748 

SEEKIDATANODE.J); 

1132 

1 

44:1 

779 

PUTIDATANOI'E); 

1133 

1 

4410 

787 

end: 

1134 

1 

4410 

804 

0BJ4  asks  analyst  which  objective  he/she  wishes  to  reword  and  asks  him/her 
to  reword  it. 


0BJ5  calls  PRINTSCREF.N  to  print  the  contents  of  the  objectives  display  screen. 


Ill 


1142 

1 

14:d 

1 

(ttP«)P80CEtiUFiE  OBJ?: 

1143 

1 

1410 

0 

BEGIN 

1144 

1 

I4:i 

0 

CORECLOSE : 

1145 

1 

i4:i 

2 

BRANCHOUT ; 

1144 

1 

1411 

4 

SETCHAIN( 'GREETING')! 

1147 

1 

i4:i 

18 

EXITCPROGRAH); 

1148 

1 

i4:o 

22 

enb: 

1147 

1 

1410 

34 

0BJ7  transfers  control  to  the  GREETING  program 


IISO 

1 

ii;d 

1 

«tP«>PR0CEDURE  DISr-SCMTCHl 

nsi 

1 

1110 

0 

BEGIN 

1152 

1 

ii:i 

0 

NP4T41>0; 

1153 

1 

ii:i 

4 

PCl<lt 

1154 

1 

ii:i 

8 

FOR  K1>1  TO  20  DO 

1155 

1 

11:2 

22 

BEGIN 

1156 

1 

11:3 

22 

IF  SCRRTCHCKIO"  THEN 

1157 

1 

1114 

42 

BEGIN 

1158 

1 

11:5 

42 

IF  FO-10  THEN 

1159 

1 

11:6 

49 

BEGIN 

1160 

1 

ii;7 

49 

PC1=1» 

1161 

1 

11:7 

S3 

anykey; 

1162 

1 

11:7 

55 

GOTOXY (0,5)1 

1163 

1 

1117 

60 

IIRITE<CHR(11)>: 

1164 

1 

1116 

70 

end: 

1165 

1 

11:5 

70 

NDATAl«i: 

1166 

1 

11:5 

74 

LLENGTH1<72; 

1167 

1 

ii:s 

78 

LINE1>:SCRATCHCK]: 

1168 

1 

11:5 

96 

HRITE('  ',NSCRATCHtK3 

1169 

1 

Ills 

148 

shoualine; 

1170 

1 

Ills 

ISO 

NRITELNC  ')! 

1171 

1 

Ills 

168 

pc;=pc+i; 

1172 

1 

1114 

176 

end: 

1173 

1 

1112 

176 

end; 

1174 

1 

1110 

186 

end; 

1175 

1 

1110 

204 

DISPSCRATCH  displays  the  performance  items  in  the  body  of  the  main  displays. 


117« 

1 

48:D 

1 

(t«r«>PR0CEDURE  SELECTOBJECTIVES! 

1177 

1 

48:o 

0 

BEGIN 

1176 

1 

48: 1 

0 

GOTOXY(0,10)! 

1179 

1 

48:i 

5 

UR1TE(CHR<11)); 

1180 

1 

48: 1 

15 

URITE('You  My  pvrfork  ony  of  tht  following  procedures: ' fChr(13) > 

1161 

1 

48:i 

85 

'  1.  Anolyze  functional  purposes  2.  Specify  o  new  objective'tchr<13)> 

1182 

1 

48: 1 

171 

'  3.  Reeove  an  objective  4.  Reword  on  obJective'tChr(13>( 

1163 

1 

48: 1 

253 

'  5.  Print  these  objectives  0.  Anolyze  o  different  ospect' »chr(13> 

1184 

1 

48: 1 

342 

'  7.  Select  o  different  onolytic  proc.  'tchr<13)r 

1185 

1 

48:i 

404 

'Pleose  select  one:  ')! 

1180 

1 

48: 1 

435 

REPEAT 

1187 

1 

48:2 

435 

help: >23! 

1188 

1 

48:2 

439 

KEYN! 

1189 

1 

48:2 

441 

IF  1«999  THEN 

1190 

1 

48:3 

450 

OBJECTIVES! 

1191 

1 

48:2 

452 

IF  <1<1)  OR  (I>7>  THEN 

1192 

1 

48:3 

405 

UR1TELN< 'Pleosc  type  on  integer  between  1  ond  7')! 

1193 

1 

48: 1 

523 

UNTIL  <I>*1)  ANIi  <I<=7); 

1194 

1 

48: 1 

530 

GOTOXY(0,10)i 

1195 

1 

48: 1 

541 

URITE(CHR(11))! 

1190 

1 

48: 1 

551 

CASE  I  OF 

1197 

1 

48: 1 

550 

i:  OBJli 

1198 

1 

48: 1 

500 

2!  OBJCREATE! 

1199 

1 

48: 1 

504 

3:  OELOBJ; 

1200 

1 

46: 1 

508 

4:  0BJ4! 

1201 

1 

48:i 

572 

5!  OBJS: 

1202 

1 

48:i 

570 

o:  ASPECTS! 

1203 

1 

48: 1 

580 

7:  0BJ7! 

1204 

1 

46  :i 

584 

ENU: 

1205 

1 

46:0 

000 

END! 

1200 

1 

46:0 

020 

SELECTOBJECTIVES  prints  the  menu  of  the  analytic  processes  available  at 
the  objectives  level  on  the  bottom  of  the  display  screen. 


1207 


(•OFOlPROCeOURe  objcctivcsi 
OEGIN 

nscreen:-ii 

topscreen; 

miTE  ( '  Ob  Jcct  i  VM— ' )  1 
PREFIXOt 

FOR  J:-1  to  20  DO 
DE6IN 

SCRRTCHtJl!-"} 

NSCRATCHtJ}:>J 

EHDt 

FOR  i:«l  TO  NCORELAST  DO 
DEGIN 

IF  CORECn  DIV  1000000-NPAC  THEN 
DEGIN 

IF  CORECIl  -  COREEll  DIV  10000  «  10000  -  ( 
DEGIN 

SEEK(OATANODE»I)I 
GET  <DATAHODEH 
J: >OAT ANODE* .NTAXAI21 } 

NSCRATCHC  J} :*DATANODE* . NTAXAC23  f 
SCRATCHC  J1 :  ■DAT  ANODE* .  TAXA  t 

end: 

end; 

end; 

dispscratch; 

IF  NDATA«0  THEN 

URITELNI'l  h«v*  no  objociivot  for  oopoct  SFAC 
SELECTODJECTIVES: 

ODJECTIVES; 

end; 

(««1  «5;PERF1TEH3.TEXT$) 


0  THEN 


ot  thi*  lint'); 


OBJECTIVES  governs  the  overall  main  display  of  the  objectives. 


1241 

1 

49:D 

1 

(*«P«)PR0CEDURE  CHlt 

1242 

1 

49:0 

0 

BEGIN 

1243 

1 

49: 1 

0 

nscreen:-3: 

1244 

1 

49: 1 

4 

topscreen; 

1245 

1 

49:i 

6 

NRlTELNC'You  hav*  chosen  to  crooio  o  noy  chorocteristic • ' >i 

1246 

1 

49: 1 

73 

UR1TELN('  ')) 

1247 

1 

49: 1 

91 

index; 

1248 

1 

49:0 

93 

tm 

1249 

1 

49:0 

106 

CHI  calls  index  to  be  certain  that  there  is  room  to  add  the  desired 
characteristics  to  the  list  of  performance  items. 


1250 

1 

3:d 

1 

«*9*>9ftOCEDU(tE  CHARCREATE; 

1251 

1 

310 

0 

BEGIN 

1252 

1 

3:i 

0 

REFEAT 

1253 

1 

3:2 

0 

CHi; 

1254 

1 

3:2 

2 

IF  1-0  THEN 

1255 

1 

3:3 

9 

EXIT  (CHARCREATE) 1 

1254 

1 

3:2 

13 

HRITELNI'FImsc  M*ciFy  (80  additional  eharocitr*  available) 
cbaracteritiic'^' )) 

the  new 

1257 

1 

3:2 

108 

IIRITE(CHR(13)); 

1258 

1 

3:2 

118 

PREFIXC; 

1259 

1 

3:2 

120 

inline; 

1240 

1 

3:2 

122 

IF  SCRATCH!  n-"  THEN 

1241 

1 

3!3 

142 

EXIT(CHARCREATE); 

1242 

1 

3:2 

144 

NSCRATCHCni-i; 

1243 

1 

3:2 

143 

HRITELN('OK'); 

1244 

1 

3:2 

185 

BATANOOE* . NT AXAt 1 3 ! -NPAC  t 

1245 

1 

3t2 

200 

datanoiie*.ntaxac23:-nobjective; 

1244 

1 

3:2 

215 

OATANOOE*  .NTAXAC31  .‘-NFUNPUR; 

1247 

1 

3:2 

230 

DAT ANODE A . NT AXAt  4  3  S -NSCRATCHC 1 3 ( 

1248 

1 

3:2 

254 

DAT ANODE* . TAXA i -SCRATCH! 1 3 1 

1249 

1 

3:2 

274 

REPEAT 

1270 

1 

3:3 

274 

BEGIN 

1271 

1 

3:4 

274 

J:-TRUNC( COREL AST); 

1272 

1 

3:4 

289 

IF  J>-300  THEN 

1273 

1 

3:5 

298 

BEGIN 

1274 

1 

3:4 

298 

HR1TELN('«««  error  —  TOUR  DATA  SET  ALREADY  CONTAINS 
ITEHS!  t««'): 

300  PERFORHANCE 

1275 

1 

3:4 

388 

URITELN(‘**4  THUSt  THIS  ITEH  NAS  NOT  ADDED 

TO  DATA  SET  MS'); 

1274 

1 

3:4 

444 

anykey; 

1277 

1 

3:4 

448 

EXlT(FUNCCREATE)t 

1278 

1 

3i3 

472 

end; 

1279 

1 

3:4 

472 

CORELAST {-CORELASTtl 1 

1280 

1 

3:4 

497 

1281 

1 

3:4 

505 

EIi:-C0RE!J3  DIV  loooooo; 

1282 

1 

3:4 

542 

ncorelast:«j; 

1283 

1 

3:3 

548 

end; 

1284 

1 

3:2 

548 

UNTIL  EII  -0; 

1285 

1 

3:2 

584 

TEHPS-NPAC; 

1284 

1 

3:2 

403 

tscr:-nobjective; 

1287 

1 

3:2 

420 

CORE!J3:-TENP«1000000+TSCR»10000*NFUNfURtlOO+NSCRATCH!I3t 

CHARCREATE  is  the  main  routine  to  handle  creating  new  characteristics. 


n 

3:2 

733 

8ECK<lMTMN>DC.J>t 

12B9 

1 

3:2 

744 

fUT<IMT4N0DE>: 

1290 

1 

3«2 

7S2 

Mi£f>K£Y<12,'yould  you  lik*  to  spocify  oor*  eh«yoct#ri*tictT' JJ 

1291 

1 

3t2 

MS 

IF  4MS-'Y'  THEN 

1292 

1 

3:3 

ai2 

ok: ■FALSE 

1293 

1 

3:2 

•12 

ELSE 

1294 

1 

3:3 

•18 

EXIT(CHA(iCREATE)i 

129S 

1 

3:1 

•22 

UNTIL  ok; 

1294 

1 

3:0 

827 

end: 

1297 

1 

3:0 

844 

See  previous  page  for  program  description, 


1298 

1 

1018 

1 

KtPOraOCEDURE  KLCMtl 

1299 

1 

1010 

0 

8E61N 

1300 

1 

io:i 

0 

OVCRl -FALSE! 

1301 

1 

1011 

4 

HEPEAT 

1302 

1 

1012 

4 

HRITEl 'Which  on*  (Typo  0  to  rocon«idor)l ' )! 

1303 

1 

1012 

49 

NELPl-12t 

1304 

1 

1012 

53 

KEYN! 

1305 

1 

10:2 

55 

IF  1-999  THEN 

1300 

1 

10:3 

04 

CHARACTERISTICS! 

1307 

1 

10:2 

00 

IF  (KO)  OR  (1>30)  THEN 

1308 

1 

10:3 

79 

WRlTELNi 'PLEASE  INPUT  AN  INTEGER  8ETUEEN  0  AND  20' >! 

1309 

1 

10:1 

139 

UNTIL  (I>-0>AND<I<21>i 

1310 

1 

10:1 

152 

IF  I-O  THEN 

1311 

1 

10:2 

159 

KOIN 

1312 

1 

1013 

159 

CXITiDELCAR)! 

1313 

1 

10:2 

103 

END! 

1314 

1 

10:1 

103 

PRCPKEY<12f'Do  you  rtolly  wont  to  rooovo  this  choracitritiic?')! 

1315 

1 

1011 

218 

Jl-0! 

1310 

1 

1011 

222 

IF  ANS-'N'  THEN 

1317 

1 

1012 

229 

KGIN 

1318 

1 

1013 

229 

EXITIDELFUN) 

1319 

1 

1012 

233 

END 

1320 

1 

1011 

233 

ELSE 

1321 

1 

1012 

235 

REPEAT 

1322 

1 

1013 

235 

TEHPl-NPAC! 

1323 

1 

1013 

252 

TSCRl-NODJECTIVE! 

1324 

1 

1013 

209 

Jl-J*l! 

1325 

1 

1013 

277 

IF  COREtJ3-TEHP«10000004TSCR*10000tNFUNPUR«1004I  THEN 

1320 

1 

1014 

382 

REMOVE! 

1327 

1 

1012 

384 

UNTIL  <J-NCORELAST) 

1328 

1 

1010 

391 

END! 

1329 

1 

1010 

412 

1 

DELCAR  asks  analyst  which  characteristic  he/she  wishes  to  delete  and  calls 
REMOVE  to  actually  remove  the  characteristic. 


1330 

1 

9o:o 

1 

(••POrroCEDURE  OMR3; 

1331 

1 

9010 

0 

BEGIN 

1332 

1 

9o:i 

0 

60T0XY(0.16>1 

1333 

1 

9o:i 

9 

IIRITE(CHR<11)>1 

1334 

1 

9011 

19 

REPEAT 

1339 

1 

9012 

19 

WRITELNl'You  hov*  ehosvn  to  rcMord  o  choractoristic.')! 

1336 

1 

9012 

78 

HRITELN('  Ml 

1337 

1 

9012 

96 

HELP:-12( 

1338 

1 

9012 

100 

URITEt 'Wiich  one  do  you  wont  to  reword  (Type  0  to  reconsider)?  ')> 

1339 

1 

9012 

168 

KEYNi 

1340 

1 

9012 

170 

IF  I«999  THEN 

1341 

1 

9013 

179 

CHARACTERISTICS! 

1342 

1 

9012 

181 

IF  (I<0)  OR  <I>20)  THEN 

1343 

1 

9013 

194 

HRITELN( 'PLEASE  TYPE  AN  INTEGER  BETHEEN  0  AND  20' )i 

1344 

1 

9o:i 

293 

UNTIL  <I>>0>  AND  (I<21>1 

1349 

1 

9011 

266 

IF  I-O  THEN 

1346 

1 

90:2 

273 

CXIT<CHAR3); 

1347 

1 

9o:i 

277 

IF  SCRATCHCI1-"  THEN 

1348 

1 

90:2 

297 

BEGIN 

1349 

1 

9013 

297 

HRlTELN<NSCRATCHCn,'  DOES  NOT  EXIST')! 

1390 

1 

90:3 

399 

EXIT<CHAR3); 

1391 

1 

9o:2 

399 

END! 

1392 

1 

9o:i 

399 

G0T0XY<0.16)! 

1393 

1 

9o:i 

364 

URITECCHRdl))! 

1394 

1 

9o:i 

374 

NR1TELN( 'Pleose  reword  <80  chorocters  ovoiloble)  this  chorocteristic?')! 

1399 

1 

9o:i 

494 

URITC(CHR(13))! 

1396 

1 

9o:i 

464 

PREFIXC! 

1397 

1 

so:i 

466 

INLINE! 

1398 

1 

9o:i 

468 

IF  SCRATCH!  1 3»"  THEN 

1399 

1 

90:2 

488 

EXIT<CHAR3)! 

1360 

1 

90:1 

492 

NSCRATCHCn;*!! 

1361 

1 

90:1 

909 

DAT ANODE* . NT AXAC  n ! «NPAC! 

1362 

1 

90:1 

924 

DATANODE* .  NTAXAir  J  .*  =N0BJ£CT1  VE ! 

1363 

1 

90:1 

939 

DAT ANODE* . NT AX AC  3 1 : <NFUNF  UR ! 

1364 

1 

90:1 

994 

DATANODE  * . NT AX AC  4 1 : rNSCRATCHC 1 3 ! 

1369 

1 

90:1 

980 

DATANODE  * .  TAXA  *SCRA  TCHt  1 J  ! 

1366 

1 

90:1 

600 

tehp:»hpac! 

1367 

1 

90:1 

617 

TSCRl^NOhJECTIUC: 

1368 

1 

90:1 

634 

TCnp:>TEnPtlOOOOOO4TSCR«)O0O0tNFUNF-URtlOOtN5CRATCHCn! 

1369 

1 

90:1 

739 

j:«oi 

1370 

1 

90:1 

739 

REPEAT 

1371 

1 

90:2 

739 

JloJtl!! 

1372 

1 

9011 

747 

UNTIL  TEnP>C0RECJ3! 

1373 

1 

9o;i 

778 

NRlTELNf'OX')! 

1374 

1 

90:1 

800 

SEEK! DATANODE, J)! 

1379 

1 

9011 

811 

PUT (DATANODE)! 

1376 

1 

9o:o 

819 

END! 

1377 

1 

9010 

836 

CHARS  asks  analyst  which  characteristic  he/she  wishes  to  reword.  It  then 
asks  him/her  for  the  new  wording  of  the  characteristic. 


K 


1378 

1 

S1!D 

1 

(8«9*>FR0CEDURE  CHAK4: 

1379 

1 

51  :o 

0 

BEGIN 

1380 

1 

Sill 

0 

HRITELNl 'PlMM  bt  Cffrittin  ih«t  the  printer  i«  OH  and  ONLINE!  !•••'>: 

1381 

1 

si:i 

78 

nprint:«3i 

1383 

1 

SIM 

80 

PRINTSCRN! 

1383 

1 

si:o 

82 

end; 

1384 

1 

51  :o 

94 

CHAR4  calls  PRINTSCRN  to  print  the  main  screen  for  the  characteristics 
level  performance  items. 


13SS  i  S2:D  1  (••M>PROCEDUftC  C(MR«; 

1386  1  S2!0  0  BEGIN 

1387  1  S2:i  0  objectives; 

1388  1  S2:i  2  fpur; 

1389  1  S2:0  4  end: 

1390  1  S2:0  14 


CHAR6  enables  analyst  to  specify  a  different  objective  (and  consequently,  a 
different  functional  purpose). 


1391  1  53:D  1  <*»P«>PMX:EIHJRE  CHAR7i 

1392  1  S3:o  0  BEGIN 

1393  1  S3M  0  aspects; 

1394  1  S3:i  2  objectives; 

1395  1  S3:i  4  fpub; 

1394  1  S3:0  6  enb; 

1397  1  S3:0  18 


CHART  allows  analyst  to  specify  a  different  aspect  (and  consequently,  a 
different  objective  and  functional  purpose). 


1398  1  S4:D  1  (tm) PROCEDURE  SELECTCHARACTERISTICSi 

1399  1  SCO  0  BEGIN 

1400  1  54:i  0  60T0XY(0rl4)i 

1401  1  54:i  5  IIRITE(CHR<11))1 

1402  1  54:i  IS  URITEt'You  My  perfora  ony  of  the  following  procedures! 'tChrdS)! 

1403  1  S4:i  8S  '  1.  Specify  new  characteristics  2<  Reeove  a  choracteristic'tchr(13)f 

1404  1  S4:i  171  '  3.  Reword  a  characteristic  4.  Print  these  characteristics' ichr( 13) > 

1405  1  S4:i  261  '  S.  Analyze  a  different  func.  purp.  6.  Analyze  a  different  objective' >chr(13) > 

1406  1  S4!l  3S3  '  7.  Analyze  a  different  aspect  8.  Select  a  different  analytic  proc.'>chr( 

1407  1  S4!l  449  'Please  select  one!  'li 

1408  1  S4:i  480  REPEAT 

1409  1  S4:2  480  HELP:>12S 

1410  1  S4:2  484  KEYNl 

1411  1  S4:2  486  IF  1*999  THEN 

1412  1  34:3  49S  CHARACTERISTICS! 

1413  1  S4:2  497  IF  (Kl)  OR  (I>e)  THEN 

1414  1  S4:3  SIO  URITELN! 'Please  type  an  integer  between  1  and  8')! 

1413  1  S4:i  368  UNTIL  <I>=1>  AND  (I<*8>i 

1416  1  S4!l  381  G0T0XY(0,16)i 

1417  1  3411  386  WRITE(CHR<11)); 

1418  1  S4!l  396  CASE  I  OF 

1419  1  34!!  601  1!  CHARCREATE! 

1420  1  34!!  60S  2!  DELCAR! 

1421  1  34!!  609  3!  CHARS! 

1422  1  34!!  613  4!  CHAR4! 

1423  1  S4:i  617  3!  FPUR! 

1424  1  S4:i  621  6!  CHAR6! 

1423  1  S4:i  623  7!  CHAR7! 

1426  1  S4!l  629  8!  0DJ7!  <«YESi  IT  IS  OKt) 

1427  1  S4:i  633  END! 

1428  1  S4:0  656  END! 

1429  1  S4:0  670 


SELECTCHARACTERISTICS  displays  the  menu  of  procedures  to  be  performed 
with  characteristics  level  taxa. 


130 

131 

132 

133 

134 

135 

136 
>37 
136 

139 

140 
Ml 
M2 
M3 
M4 
MS 


M9 

150 

151 

152 

153 

154 

155 

156 

157 

158 
«9 

460 

461 

462 


4!D 

1 

(8«P*)PflOCEDURE  characteristics: 

410 

0 

8E6tN 

411 

0 

nscreen:-3| 

411 

4 

topscreen: 

411 

6 

write:  'Ch«racttriitics— *  >: 

411 

35 

PREFIXC; 

411 

37 

FOR  j:-l  TO  20  DO 

412 

51 

8ECIN 

413 

51 

SCRATCHCJi:*": 

413 

69 

NSCRATCHCJi:>J 

412 

82 

end: 

4:i 

96 

FOR  i:>l  TO  NCORELAST  DO 

412 

112 

BEGIN 

4:3 

112 

tehp:-npac: 

4:3 

129 

IF  CQRECn  DIV  100-rE»ff>«100004NOBJECTIVE«1004NFUNPUR  THEN 

4:4 

204 

BEGIN 

4:5 

204 

IF  CORECIl  -  COREin  DIV  100  *  100  <>  0  THEN 

4:6 

274 

BEGIN 

4:7 

274 

SEEtCOATANODE,!): 

4:7 

285 

GET  < DAT ANODE): 

4:7 

293 

J :  -DAT  ANQDE'^ .  NTAXAC  4 1 : 

4:7 

308 

NSCRATCHrji:«DATAN0DE^.NTAXAC4]: 

4:7 

334 

SCRATCH!  J1 :  «DAT  ANODE  .  TAX  A : 

4:6 

354 

end: 

4:4 

354 

end: 

4:2 

354 

end: 

4:i 

364 

dispscratch: 

4:i 

366 

IF  NDATA^O  THEN 

412 

373 

URITELN('Na  characterictics  ore  ovoiloble  at  the  present  tiee 

4:i 

445 

SELECTCHARACTERISTICS: 

4:i 

447 

characteristics: 

4:o 

449 

end: 

4:o 

470 

CHARACTERISTICS  governs  the  characteristics  display  functions. 


1463 

1 

2:d 

1 

(MPOPROCEDURE  CORECLOSE  i 

1464 

1 

2:0 

0 

BEGIN 

146S 

1 

2:1 

0 

RESET ( COREFILE . NAHECOREFILE  > I 

1466 

1 

2:1 

13 

FOR  I:<1  TO  300  DO 

1467 

1 

2:2 

29 

BEGIN 

1468 

1 

2:3 

29 

C0REFILE*:-C0RECI1{ 

1469 

1 

2:3 

57 

PUT  (COREFILE) 

1470 

1 

2:2 

65 

end; 

1471 

1 

2:1 

75 

COREFILE^tsCORELAST; 

1472 

1 

2:1 

91 

PUT (COREFILE); 

1473 

1 

2:1 

99 

CLOSE (COREFILE); 

1474 

1 

2:0 

108 

end; 

1475 

1 

2:0 

122 

CORECLOSE  saves  the  index  to  the  performance  items  on  disk 


1476  1  1 :0  0  <**Pt)KGIN 

1477  11 ;0  0 

147B  1  i:i  0  INL1NECAU:*0; 

1479  1  1*1  66  BR6NCH1N1 

1400  1  111  68  APHIlSK:«C0NCAT(C0PY(CUrtSYS.1.2).C0fY(CURSF’tlr2>tCaPY(CURSUB,l,2)i':'>; 

1401  1  i:ilS7  NAHEHELPFILE:=CONCAT(APHDSK.'HELP‘)i 

1482  1  111  193  HAMEC0REFlLE:=C0NCAT(AP«DSK,C0PY(Cm«SyS,l,4),C0PY(CURSP,l,4),C0PY<CURSUB,l,4),'C0') 

1403  1  1 : 1  293  NAHE  DATAFILE:  >C0NC  AT  ( AFHDSK ,  COP  Y  ( CURSYS ,  1 , 4 ) ,  COPY  ( CURSP ,  1 1 4  > .  COPY  (CURSUD,l,4),'Fr) 

1484  1  ltl393  OPENCOREFILE; 

14BSli:i39S  aspects; 

1486  1  1:1397  openodjfile; 

1487  1  i:i399  objectives; 

1488  1  i:0401  END. 


MAIN  PROGRAM  for  analyzing  performance  items, 


MEASURES  AND  ATTRIBUTES  PROGRAM  (MEASATTR) 


The  measurement  and  attributes  program  allows  the  analyst  to  edit  attributes 
and  measures  for  each  performance  item,  adding,  rewording  and  deleting  as 
appropriate. 


1 

1 

1 

(**(.  pkinter:  «> 

2 

1 

i:d 

1 

3 

1 

no 

1 

(4  arogroB  to  porfora  eoaposition  of  ottributa  list*) 

4 

1 

i:i) 

1 

(*  Ronald  G<  Shapiro  Varsion  2.0 

10/25/82*) 

5 

1 

i:d 

1 

Rrograa  Foroottributsi 

4 

1 

i:d 

3 

7 

28 

i:d 

3 

e 

28 

2:d 

1 

PROCEDURE  SETCHAIN(TmE:STRING)} 

9 

28 

3:o 

1 

PROCEDURE  SETCVhLtVALiSTRING); 

10 

28 

4:o 

1 

PROCEDURE  GETCUALiVAR  VALlSTRING); 

11 

28 

s:d 

1 

PROCEDURE  SUAPON: 

12 

28 

4:d 

1 

PROCEDURE  SUAPOFF: 

13 

28 

4:d 

1 

14 

1 

i:o 

1 

Usas  ChainstuFfi 

IS 

1 

i:d 

3 

These  procedures  are  pari  of  the  Apple  Computer's  CHAINSTUFF  library  entry. 
The  demonstration  package  uses  only  SETCHAIN  which  causes  another  program 
to  be  activated. 


IS  1 
17  1 


3  ($*P«>TYPE 
3  PASSFILE  -RECORD 

3  CURSrSfC0RSPtC0RSUB,PRCJSTRlWC003{ 

3  NCURSYStHCURSPfMC0RSUB»HPACtFLRCltFLRG2fFLAG3. IHTEGERr 

3  end; 

3 

3  DATABASE  -RECORD 

3  NTAXAi  array; 1.. 4]  OF  INTEGER; 

3  taxa:  stringcooi; 

3  end; 


27  1 

28  1 


32  1 


FILEATTRIBUTES  -RECORD 

ndescriptor:  arrayci..«]  of  integer; 

descriptor:  stringcasi; 

end; 

FILEHEASURES  -RECORD 

ndescriptor:  arrayci..ai  of  integer; 

descriptor:  stringcast; 

end; 


PASSFILE  is  used  for  interprogram  communication  (see  GREETING  listing) 
FILEATTRIBUTES  contains  the  attributes. 

FILEMEASURES  contains  the  measures. 


37 

1 

i:d 

3 

(••M)VA8 

3S 

1 

i:d 

3 

PASSNOOEIPILE  OF  PASSFILEI 

37 

1 

118 

474 

OATANOOEIFILE  OF  DATABASE; 

40 

1 

i:d 

817 

COREFILEIFILE  OF  INTEGERCBll 

41 

1 

110 

1122 

ATTRIBUTES.'FILE  OF  FUEATTRIOUTESI 

42 

1 

liD 

1443 

ATTRFILEIFILE  OF  INTEGCRC121; 

43 

1 

no 

1747 

HEASURESIFILE  OF  FILEHEASURES; 

44 

1 

i:d 

2108 

HEASFILE.'FILE  OF  1NTEGERC121; 

4S 

1 

i:d 

2412 

44 

1 

i:d 

2412 

CORE:ARRArC1..3O01  OF  INTEGCRCa]; 

47 

1 

ISO 

3312 

ATTRCORE: ARRAY Cl.. 2001  OF  lNTEGERtl21i 

48 

1 

i:d 

4112 

HEASCaRE:ARRAYC1..4001  OF  INTEGERC12]: 

47 

1 

ItD 

5712 

SO 

1 

liD 

5712 

SCRATCHIARRAY  Cl.. 202  OF  INTEGER; 

51 

1 

i:o 

5732 

ASFECT:aRRAYC1..S2  GF  STR1NGC141; 

32 

1 

i:p 

5772 

core2:arrayci..3ooi  of  integer; 

\ 

53 

1 

i:o 

4072 

attrindex;arratci..202  of  integer; 

54 

1 

1!D 

4072 

neasindex:arrayci..20]  of  integer; 

55 

1 

i:d 

4112 

54 

1 

i:d 

4112 

XCHARAC.XFUNRURtXOIiJECTIUE.FAC.CURSYS.CURSF.CURSUB:  STRINGC80]; 

57 

1 

i:d 

4377 

ncurheasures,ncurattri»ute,ncurissue>ncharac. 

58 

1 

no 

4377 

nfunfur.nobjective.nfac.ncursys.ncursp.ncursub:  integer; 

57 

1 

i:o 

4407 

40 

1 

i:o 

4407 

NANEATCORE  tNANEATTRI BUTES.NAHEHECORE  t NAHEHE ASURES :  STRINCC  24  2 ; 

41 

1 

i:o 

4441 

CORENAHEfDATANAnE:  STRINGt242; 

42 

1 

i:o 

4487 

APHOSK; STRING! 02; 

43 

1 

i:d 

4472 

44 

1 

i:d 

4472 

TENPL4,TENP,TEHPL1  iTEHPL2.TEHPL3.C0RELAST.‘  INTEGERC02! 

45 

1 

i:o 

4510 

TEHPX . ATTRLAST .HEASLAST : INTEGER! 122 ; 

44 

1 

ISO 

4522 

47 

1 

i:d 

4522 

noi)E>inverse,help»nscreen,nprint:integer; 

, 

48 

1 

liO 

4527 

NCOREL AST , NAT  TRL AST , NHE ASL AST : INTE  GER 1 

47 

1 

i:o 

4530 

NATTRl BUTES • NNE ASURES  »NUHE ASURES : INTEGER  f 

70 

1 

i:o 

4533 

71 

1 

i:d 

4533 

INUINECALLt  INDENT, UENGTH.NLENGTHtPCi  It  JtK,LrH,N,NATTR,NHEAS,tilSPHCOUUNT, 

OISPCOUNT , COUNT , TEHP2: 1 N 

72 

1 

i:d 

4550 

73 

1 

i:d 

4SS0 

REFERENCED, longuay,done.ovcr»ok.skip,none:boolcan; 

74 

1 

ISK 

4SS7 

75 

1 

i:d 

4557 

ANSWER, LINE, REGUINE,LlNER:STRINCt802; 

74 

1 

no 

4721 

77 

1 

i:d 

4721 

ans,anshold:  char; 

78 

1 

i:d 

4723 

77 

1 

i:o 

4723 

prntitext; 

80 

1 

i:o 

7024 

81 

1 

2:0 

1 

PROCEDURE  branchin;fornard; 

82 

1 

3tD 

1 

PROCE  DURE  BRANCHO'UT ;  FORUARD  { 

83 

1 

410 

1 

PROCEDURE  ANYKETiFORNARD; 

84 

1 

4tD 

1 

These  strings,  arrays  and  variables  are  used  by  this  program 


as 

7  IIB 

1 

BA 

7  i;o 

0 

B7 

7  1!0 

0 

B8 

7  i:i 

0 

09 

7  111 

11 

90 

7  i:i 

11 

91 

7  i:i 

16 

92 

7  112 

23 

93 

7  li3 

23 

94 

7  113 

109 

9S 

7  1:3 

122 

96 

7  1:4 

138 

97 

7  i:s 

138 

98 

7  1:3 

149 

99 

7  1:6 

163 

100 

7  i:s 

18G 

101 

7  1:5 

223 

102 

7  US 

231 

103 

7  1:6 

241 

104 

7  U7 

241 

105 

7  U7 

278 

106 

7  1:7 

281 

107 

7  1:7 

284 

108 

7  1:7 

298 

109 

7  1:6 

302 

110 

7  U4 

302 

111 

7  1:3 

312 

112 

7  U3 

321 

113 

7  U3 

323 

114 

7  1:2 

327 

US 

7  1:1 

327 

116 

7  1:0 

336 

117 

7  1:0 

3S6 

(••POSEGMENT  PMCEPUftE  OPENATTRIBUTESf ILEi 
BEGIN 

liESET(ATTIllBUTES»NMEATTRIIUTES>t 

i:-IORESULTI 
IF  lOO  THEN 
BEGIN 

HRITELNI'PImm  bear  with  m  wAil*  I  ertoia  tb*  atiributts  file 
REWRl TE ( ATTRI BUTES>NAHEATTRI BUTES) } 

FOR  l:-i  TO  NATTRIBUTES  DO 
BEGIN 

SEEKIATTRIBUTES.DI 

FOR  j:>i  to  6  bo 
ATTRIBUTES*. NDESCRIPTORCJlUOt 
ATTRIBUTES*. descriptor:-'  'I 

PUT< ATTRIBUTES); 

IF  <  EOF ( ATTRIBUTES  >  >THCN 
BEGIN 

URITELN('OUT  OF  BISK  SPACE') I 
ANYKEY i 

branchout; 

8ETCHAIN< 'GREETING'); 

EXIT(PROGRAH); 

end; 

end; 

close; ATTRIBUTES. LOCK) ; 

OPENATTRIBUTESFILC; 

CX1T<0PENATTRIBUTESF1LE) ; 

end; 

CLaSE(ATTRIBUTES); 

end; 


tha  dick'); 


OPENATTRIBUTESFILE  creates  attributes  file  if  it  does  not  already  exist 
on  the  disk. 


29  8 

30  8 

31  8 

32  8 


OtPOSCGNENT  PMCEOURE  0PENHEASU8CSF1LE; 

BEGIN 

RESET(HEASURES.NAnEHEASURES) 1 

<MMI) 

i:«10ftESULT| 

IF  lOO  THEN 
BEGIN 

IMITELN( bcor  with  ••  while  I  create  the  eeosures  File  on  the  disk'li 
REURl TE ( HEASURES,NAHEHEASURES) $ 

FOR  i:>l  TO  NHEASURES  DO 
BEGIN 

SEEK<NEASURES.1){ 

HE  ASURES''  .DESCRIPTOR  '  '  S 

PUT<NCASURES); 

IF  ( EOF  <  MEASURES )  >TtCN 
BEGIN 

URITELN<'OUT  OF  BISK  SPACE' >$ 
anykey: 

BRANCHOUTI 

SETCHAIN< 'GREETING' >1 
EXIT<PROGRAM>: 

end: 

end: 

CLOSE (MEASURES, LOCK): 

openmeasuresfile: 

EXITCOPENMEASURESFILE) : 

end: 

CLOSE (MEASURES) ; 

end: 


OPENMEASURESFILE  creates  measures  file  if  it  does  not  already  exist  on 
the  disk. 
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ATTALASTi-O! 
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9 

113 

187 

NATTALAST:«Ot 
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attafile^i-attalast; 
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9 
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PUT<ATTAFILE)t 
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9 

113 
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a0SE<ATTAFILE>L0CK>t 
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224 

ENB 
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111 
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ELSE 
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9 
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224 

BEGIN 
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9 
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FOA  11-1  TO  NATTAIBUTES  DO 
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BEGIN 
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9 

113 
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GET<ATTAFILE>! 

179 

9 

Its 

230 

ATTACOAEt I Jl -ATTAFILE*! 

ISO 

9 

114 

278 

END! 
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9 

113 

288 

8Cr(ATTAFIlE>; 
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9 

113 

294 

ATTALASTt-ATTAFILE*! 

183 

9 

113 

312 

NATTAL AST : -TBUNC ( ATTAl AST ) ! 

184 

9 

113 

325 

CLOSE<ATTAFILC>! 

183 

9 

112 

334 

END! 

184 

9 

110 

334 

ENB! 

187 

9 

i:o 

332 

READATTRFILE  loads  core  with  index  to  attributes  file. 
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SEGMENT  PKOCEDUME  README ASEILEl 
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10 
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0 

RESET  <  ME ASF ILE . NAMEHECORE  > } 
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It«IORESULT: 
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IF  100  THEN 
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DEGIN 
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REUNITE ( HE ASF ILE (NAHEHECORE ) f 
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FOR  I1>1  TO  NHEASURES  DO 

198 

10 
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BEGIN 

199 

10 
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S2 

HEASCOREIIll-O; 

200 
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1:5 

79 

NERSFILE^l'MEASCORECIi; 
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10 
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PUT(NEASFILE>; 
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IF  EOF(nEASFILE>  THEN 
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BEGIN 
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lt7 
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URITELNt'OUT  OF  DISK  SPACE') 
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1:7 
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branchout; 

206 

10 

lt7 
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SETCHAIN< 'GREETING' >: 
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10 
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EXIT(PROGRAH); 

208 

10 

116 
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end: 
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END! 
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MEASLASTnOi 
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PUT < HE ASF I LE); 

214 

10 

113 

236 
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END 
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ELSE 
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BEGIN 
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FOR  mi  TO  NHEASURES  DO 
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10 
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0£T<H£ASFILE)t 
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10 
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HE  ASCORE  C I  mnE  ASF  ILE'' : 
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10 

114 

299 

end; 

223 

10 

113 

309 

GETtHEASFlLE); 

224 

10 

113 

317 

heaslast;*measfue*; 

225 

10 

113 

333 

NHEASLAST 1 >TRUNC ( HE ASLAST  > { 

226 

10 

113 

346 

CLOSElHEASFILOi 

227 

JO 

112 

355 

end; 

228 

10 

no 

355 

end; 

229 

10 

no 

376 

READMEASFILE  loads  core  with  index  to  measures  file. 
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IF  100  THEN 
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DE6IN 
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URITCLN<'CRE4TC  04T4B4SE  BEFORE  ATTRIBUTES  AND  NEASURES*')} 

239 

11 
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90 

branchout: 

240 

11 

i:3 

93 

SETCHAIN< 'GREETING')} 
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11 

i:3 
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EXIT(PRaGRAH)} 

242 

11 

1:2 

111 

END} 
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11 

ito 

111 

END} 

244 

11 

1:0 

124 

OPENDATAFILE  checks  to  be  sure  performance  item  file  exists. 
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(»«P«)SEGHENT  PROCEDURE  DCFINEASPECTSl 
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0 

RSPECTClli-'PotMtialitUc't 
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ASPECT[2]:«'ProcMct('l 
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12 

111 

99 

ASPECTC3i:< 'Products' 1 
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12 
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7? 

ASPECT[411>'EnviranMnt'S 

251 

12 

111 

106 

ASPECTC511*'>Constroint*'{ 

252 

12 

110 

133 

ENOS 

293 

12 

110 

146 

DEFINE  ASPECTS  tells  the  computer  the  labels  for  the  aspects  file. 
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(t«P«>SEGHENT  PROCEDURE  REROCOREriLEl 
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Itl 

0 

RESET  <  COREFILE . CORENAHE ) i 
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i:i 

11 

i:>ioresult; 
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13 
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14 

<»«I4«) 

2M 

13 
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14 

IF  100  THEM 
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13 

1:2 

23 

BEGIN 

242 

13 

113 

23 

MRITELNt 'COREFILE  DOES  NOT  EXIST')! 

243 

13 

113 

44 

ANYKEY! 

244 

13 

113 

49 

DRANCHOUT! 

245 

13 

1:3 

72 

SETCHAIN! 'GREETING' >! 

244 

13 

1:3 

84 

EXITCPROGRAN)! 

247 

13 

1:2 

90 

END 

248 

13 

1:1 

90 

ELSE 

249 

13 
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92 

FOR  i:>l  TO  300  DO 

270 

13 

1:3 
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DEGIN 

271 

13 

1:4 

108 

GET (COREFILE)! 

272 

13 

1:4 

114 

CORECli:«COREFILE'^! 

273 

13 

1:3 

144 

END! 

274 

13 

1:1 

154 

OEKCOREFILE)! 

275 

13 

1:1 

142 

corelast:>corefile*! 

274 

13 

1:1 

178 

NCOREL AST ! «TRUNC  <  CORELAST ) ! 

277 

13 

1:1 

191 

CL0SE(C0REFIL£) 

278 

13 

1:0 

200 

END! 

279 

13 

1:0 

214 

READCOREFILE  reads  index  to  performance  items  into  core, 


280 

14 

1 

D 
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(•tt>«)SEGHENT  PROCEDURE  SORTCOREFILE; 
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1 

0 

0 

BEGIN 

282 
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0 

FOR  i:>l  TO  300  00 

283 
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10 

C0RE2CIi:>Il 

284 

14 

1 

1 
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i:-2: 

285 

14 

1 

1 

49 

REPEAT 
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14 

1 

2 

49 

IF  C0RECn<C0RECl-l]  THEN 

287 

14 

1 

3 

94 

BEGIN 

288 

14 

1 

4 

94 

TEHPUCORECIi; 

289 

14 

1 

4 
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C0R£CIi:>C0RECI-lJt 

290 

14 

1 

4 

104 

C0RECi-n:>TEHp; 

291 

14 

1 

4 

194 

TEHP2:«C0RE2Cnt 

292 

14 

1 

4 

213 

C0RE2CII:-C0RE2CI-13; 

293 

14 

1 

4 

247 

C0RE2CI-li:«TEHP2: 

294 

14 

1 

4 

208 

IF  I >2  THEN 

295 

14 

1 

5 

275 

i:-i-i; 

294 

14 

1 

3 

283 

END 

297 

14 

1 

2 

283 

ELSE 

298 

14 

1 

3 

285 

i:>iti; 

299 

14 

1 

1 

293 

UNTIL  i>ncorelast; 

300 

14 

1 

0 

302 

end; 

301 

14 

1 

0 

320 

301 

14 

1 

0 

320 

(««i  •s:uTiLiTr.TExr«) 

302 

14 

1 

0 

320 

SORTCOREFILE  prepares  an  away  CORE2  which  lists  the  location  of  each 
performance  item  in  numeric  order. 
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(t«rt)pR(x;cDuRE  anykey: 

304 

1 

4 

0 

0 

BEGIN 

305 

1 

4 

'1 

0 

uriteln:*  m; 

306 

1 

4 

.1 

le 

URITELN('8tS  RItott  press  onr  Key  to  continue  (•*'>: 

307 

1 

4 

1 

78 

<*IR-«> 

308 

1 

411 

78 

REAIi(ANS): 

309 

1 

4 

1 

89 

(tSRtt) 

310 

1 

4 

;o 

89 

end: 

311 

1 

4 

0 

102 

ANYKEY  displays  "Please  Press  any  Key  to  Continue"  then  it  awaits  a  Keypress 
before  returning  control  to  the  calling  procedure. 


312 

1 

SID 

1 

<««r»)rfiocEiiuRE  helper: 

313 

1 

SiO 

0 

BEGIN 

314 

1 

5:i 

0 

URJTELN('For  hvlp  pleot*  refer  to  your  APH  MANUAL. '>; 

313 

1 

s:o 

41 

end; 

314 

1 

s:o 

74 

HELPER;  due  to  core  limitations,  it  was  not  possible  to  implement  the  full 
HELP  facility.  Thus,  this  HELPER  merely  displays  the  message. 
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1 

410 

1 

(MrointOCEDURE  ANYKEY} 

304 

1 

4t0 

0 

OEGIN 

30S 

1 

411 

0 

WlTELNl'  ')} 

300 

1 

411 

10 

URITELN('t4l  ritttM  My  K»y  to  contiftut  *«•')} 

307 

1 

411 

70 

300 

1 

411 

70 

REAII<ANS>: 

309 

1 

411 

09 

(•tail) 

310 

1 

410 

09 

end: 

311 

1 

410 

102 

ANYKEY  displays  "Please  Press  any  Key  to  Continue"  then  it  awaits  a  Keypress 
before  returning  control  to  the  calling  procedure. 


312 

1 

SIP 

1 

<$*^$)nocBDUK  hclpea: 

313 

1 

SiO 

0 

314 

1 

5:i 

0 

MBITELH('For  help  pleoM  refer  to  your  4PH  HANUAL.  )} 

313 

1 

s:o 

«i 

end; 

3U 

1 

s:o 

74 

HELPER;  due  to  core  limitations,  it  was  not  possible  to  implement  the  full 
HELP  facility.  Thus,  this  HELPER  merely  displays  the  message. 


317  1 

311  t 


323  1 

324  1 


327  1 

32B  1 


344  1 

347  1 

34B  1 

349  1 

390  1 

331  1 

332  1 


335  1 

354  1 

397  1 


1  (•mimoccwjftc  kevni 

1  VAR 

1  ANSUCft:  STRINGC40]t 

22  Hi  MiRAYC1..4]  OF  INTEGER; 

24  OKiBOOLEANi 

27  homnieger; 

28 

0  KGIN 
0  (MR-t) 

0  REPEAT 

0  REPEAT 

0  ansuer:*' 

27  ok:>true; 

30  REAPLN(ANSUER>; 

49  IF  LENGTH <ANSUER)«0  THEN 

57  URITELNi 'Pl»«t»  *nt*T  th»  intvqvr  again'); 

S7  UNTIL  LENGTH(ANSUER)<>0; 

IS  IF  <ANSUERC1]-'H'>  OR  (ANSHERtlI>'h' >  THEN 

10  helper; 

32  FOR  1:>1  TO  4  DO 

47  BEGIN 

47  HtIl:>0RD<ANSUERCl])-48; 

43  IF  <IUn<0)  OR  <ntll>9)  THEN 

92  BEGIN 

92  IF  <I-1)  OR  (HtlKXORDi'  '>-48))  THEN 

14  BEGIN 

14  OKi>FALSE; 

17  HRITELNI 'PLEASE  RESPOND  NITH  A  POSITIVE  INTEGER'); 

73  end; 

73  end; 

73  end; 

83  UNTIL  0K«TRUE; 

92  IIO!«IIClli 

02  FOR  Ii>2  TO  4  DO 

17  BEGIN 

17  IF  <lUn»0)  AND  (IICn<>9)  THEN 

44  lio;>iio*iOHUi]; 

41  end; 

71  <a4R;f) 

71  i:«iioi 

174  end: 


KEYN  reads  a  3  or  4  digit  response  from  the  keyboard  and  places  it  into  1.  If 
an  H  or  an  h  are  typed  in,  it  places  a  999  in  I  and  calls  the  HELP  routine.  If 
more  than  4  characters  are  typed,  only  4  characters  ore  read.  The  rest  are 
ignored.  If  the  character(s)  are  not  positive  intergers,  KEYN  will  display  an 
appropriate  warning  and  wait  for  a  response. 
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1 
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27 

REPEAT 

344 

1 

7:2 

27 

RE40LN(RRSUER>i 

347 

1 
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47 
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55 

IF  (RNSO'Y')  AND  lANSO'N')  AND  (ANSO'H')  AND  (ANSO'r')  ontf 
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78 

(ANSO'n')  AND  (ANSO'h')  AND  <0RD( ANS><>27>THEN 
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98 

HR1TELN< 'PLEASE  RESPOND  YES  OR  NO'')! 
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IF  (0RD(ANS)>90)  THEN 
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DEGIN 
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1 
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112:-ORO<ANS>-32; 
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1 

7:4 
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ANS:>CHR(112>) 

375 

1 
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end; 
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1 

7:1 
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UNTIL  <ANS«'Y')  OR  (ANS>'N')  OR  (ANS-'H')  OR  (0RD(ANS>-27) ; 

377 

1 

7tl 

184 

(t«Rtt) 

378 

1 

7:1 
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IF  ANS*'H'  THEN 

379 

1 

7:2 

193 

helper; 

380 

1 

7:0 

195 

end; 

381 

1 

7i0 

210 

KEY  reads  a  letter  response  from  the  keyboard.  If  response  is  1)  y  or  Y,  it  places 
a  Y  in  ANS  and  returns  to  calling  procedure;  2)  n  or  N,  it  places  an  N  in  ANS 
and  returns  to  calling  procedure;  3)  h  or  H,  it  calls  the  HELP  routine,  places  an 
H  in  ANS  and  returns  to  calling  program;  or  4)  any  other  key— it  displays  PLEASE 
RESPOND  YES  OR  NO  and  awaits  a  Y,  N,  H,  y,  n  or  h  response.  NOTE:  Only 
the  first  character/line  is  processed.  The  rest  is  ignored. 
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KEY! 
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UNTIL  (AN9>'V‘)  OR  (ANS>'N')  OR  (0RD(M«S>«27) 1 
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41 

ENDI 

3V0 
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8:0 

54 

PREPKEY  displays  a  message  then  calls  KEY  to  read  a  letter  response  from  the 
keyboard.  If  a  response  is  not  Y,  y,  N,  n,  Yes  or  No,  it  redisplays  the  message 
and.  once  again,  waits  for  a  response. 
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end; 
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LI HER : «C0PY ( LONGL INC • 1 »N > ; 
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end: 
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INLINE  accepts  up  to  80  characters  of  text.  If  more  than  80  characters  are 
specified,  it  asks  if  it  ought  to  ignore  additional  characters.  If  told  to,  it  does. 
Otherwise,  it  allows  analyst  to  re-enter  the  line. 
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K6IN 

429 

1 

1011 

0 

NLENGTH:-LEN6TH(LINE) 1 

430 

1 

1011 

8 

ir  W.ENGTH<2  THEN 

431 

1 

1012 

13 

EXIT(SH0H4LINE)t 

432 

1 

io:t 

19 

NHILE  (L1NECM.ENGTH1-'  ')  AND  (NLENGTH>1)  DO 

433 

1 

1012 

37 

nlength:-nlength-ii 

434 

1 

1011 

47 

IF  NLENGTH<2  then 

433 

1 

1012 

34 

EXIT(SH0NAL1NE>I 

434 

1 

1011 

38 

IF  NLENGTHOLLENGTH  THEN 

437 

1 

10:2 

47 

DEGlN 

438 

1 

1013 

47 

llfllTE(LlNE)! 

439 

1 

10:3 

79 

EXIT(SHOUALlNE)i 

440 

1 

10:2 

83 

END! 

441 

1 

10:1 

83 

LI-UENGTHt 

442 

1 

10:1 

89 

NHILE  alNECLlO'  ')  AND  <L>1>  DO 

443 

1 

10!2 

107 

LS-L-11 

444 

1 

10:1 

117 

l:«u-i» 

443 

1 

10:1 

123 

IF  L>0  THEN 

444 

1 

10:2 

132 

lEGlN 

447 

1 

10:3 

132 

8EGLlNE:>C0FY<LlNE,l.L>i 

448 

1 

10:3 

131 

WttnELN(HEGLINE); 

449 

1 

10:2 

171 

end; 

430 

1 

lOtl 

171 

L1-L42S 

431 

1 

10:1 

179 

NLENGTH:«NLENGTH-Ltl S 

432 

1 

lOil 

191 

IF  NLENGTH<1  THEN 

433 

1 

10:2 

198 

EXir(SHOHALINE)i 

434 

1 

10:1 

202 

KEGLINE :«C0FY<L1NE,L,NLENGTH>; 

433 

1 

10:1 

223 

FOK  i:«l  TO  INDENT  DO 

434 

1 

10:2 

239 

NRITEI'  '»} 

437 

1 

10:1 

259 

NKtTE(ftEGLlNE); 

438 

1 

10:1 

271 

FC:«FCF1} 

459 

1 

10:0 

279 

END! 

440 

1 

10:0 

298 

SHOWALINE  displays  text  on  the  screen.  If,  by  chance,  the  text  is  longer  than 
the  amount  of  space  available  on  the  current  line,  the  display  continues  onto 
a  second  line. 


441 

1 

2:0 

1 

(•trtirROCEIlimE  8MNCHlNi 

442 

1 

210 

6 

BEGIN 

443 

1 

2:0 

0 

444 

1 

2:1 

0 

RESET ( PASSNOBE . ' PASSTHRU' >  $ 

445 

1 

2:1 

18 

i:*ioresiilt: 

444 

1 

2:1 

23 

447 

1 

2:1 

23 

IF  100  THEN 

448 

1 

2:2 

30 

BEGIN 

449 

1 

2:3 

30 

URITELN( 'PASSTHRU  FILE  DOES  NOT  EXIST')! 

470 

1 

2:3 

78 

HRITELN('  MMtfFATAL  ERRORmi**')! 

471 

1 

2:3 

123 

URITELN('  '.D! 

472 

1 

2:3 

147 

ANYKET! 

473 

1 

2:3 

149 

SETCHAIN<'PGH1')! 

474 

1 

2:3 

179 

EXIT(PROGRAn)! 

475 

1 

2:2 

183 

ENO; 

474 

1 

2:1 

183 

6ET(PASSN0DE)! 

477 

1 

2:1 

190 

CURSYS :  -PASSNODE'' .  CURS  YS ! 

478 

1 

2:1 

198 

CURSP :  ■PASSNQIiE'' .  CURSP! 

479 

1 

2:1 

204 

CURSUB :  •PASSNODE'' .  CURSUB ! 

480 

1 

3:1 

214 

PAC:«PASSNODE''.PAC! 

481 

1 

2:1 

220 

NCURSYS : •PASSNODE ' . NCURS YS! 

482 

1 

2:1 

227 

NCURSP : «PASSNODE^ . NCURSP ! 

483 

1 

2:1 

234 

NCURSUB :  •PASSNODE'' .  NCURSUB  ! 

484 

1 

2:1 

241 

NPAC !  •PASSNODE'' .  NPAC  ! 

485 

1 

2:1 

248 

CLOSE < PASSNODE)! 

484 

1 

2:0 

254 

END! 

487 

1 

2:0 

270 

BRANCHIN  gets  information  from  the  PASSTHRU  file  for  use  by  this  program 


488 

1 

3:d 

1 

<««Pt)PR0CE0UflE  8IMNCH0UT$ 

489 

t 

3:0 

0 

BEGIN 

490 

1 

3:1 

0 

REWRITECPASSNOIIE.  'PASSTHRU'  >1 

491 

1 

3:1 

20 

PASSNODE*.FLAGi:«li 

492 

1 

3:1 

24 

PUT<PASSNOI<E); 

493 

1 

3il 

33 

CLOSE ( PASSNODE  f  LOCK  >  $ 

494 

1 

3:0 

41 

ENGi 

495 

1 

3:0 

54 

494 

1 

3:0 

54 

497 

1 

3:0 

54 

498 

1 

3:0 

54 

(*«I  •5:UTILITY.TEXT«) 

499 

1 

3:0 

54 

BRANCHOUT  loads  the  PASSTHRU  file  with  appropriate  data  for  use  by  called 
programs. 


muum 


510 

511 

512 

513 


11  IP 

1 

(WOPROCEPURE  closerttrfile; 

ii:o 

0 

PEGIN 

ii:i 

0 

RESET ( ATTRFILE .NAHEOTCORE  > 1 

ii:i 

13 

FOR  ]:■!  TO  NATTR18UTES  PO 

11:2 

20 

PEGIN 

1113 

29 

ATTRFlLE*:«ATTRCOREtn; 

11:3 

57 

miATTRF'iLE): 

11:2 

05 

ENPi 

11:1 

75 

ATTRL AST  1 -NATTRL AST { 

nil 

92 

attrfiie»;»attrlast; 

11:1 

108 

PUT<ATTRFILE)i 

11:1 

116 

CL0SE(ATTRFILE)1 

11:0 

125 

ENO; 

11:0 

140 

CLOSEATTRFILE  saves  index  to  attributes  file  on  the  disk. 


,  Tm 

1 

12tS 

1 

(StOtlPROCEDURE  CLOSEKEASFILEt 

■fj 

1 

12t0 

0 

K61N 

1 

t2tl 

0 

RESETCHEASFILEilMNENECORC) t 

S17 

1 

12:1 

13 

FOR  lt-1  TO  NMEASURES  DO 

SIS 

1 

12!2 

2f 

SE6IN 

Slf 

1 

12t3 

27 

NEASFILE* : >NEASCOREC I 1 t 

S20 

1 

1213 

57 

FUTtHEASFlLE)} 

521 

1 

1212 

45 

END! 

S22 

1 

1211 

75 

HEASLAST:*mEASlASTl 

S23 

1 

1211 

92 

MEASF ILE* 1 -MEASLAST  t 

524 

1 

1211 

108 

FUT<HEASF1LE)1 

525 

1 

12:1 

114 

CLOSE(HEASFILE)t 

524 

1 

12t0 

125 

ENOl 

527 

1 

12:0 

140 

CLOSEPJEASFILE  saves  index  to  the  measures  file  on  the  disk, 


S28 

1 

i3:p 

1  PROCEDURE  SETUPSCREEN; 

529 

1 

i3:o 

0 

BEGIN 

530 

1 

1311 

0 

i:>TRUNC(C0RE[N0DEl  DIV  1000000); 

531 

1 

1311 

54 

pRc:>ASPECTcn; 

532 

1 

I3:i 

72 

NP6c:*i; 

533 

1 

1311 

78 

TENP:=CaRECNOPE}  DIV  tOOl 

534 

1 

i3:i 

115 

TEHP3:«TRUNC\C0REtN0DE]  DIV  10000); 

535 

1 

1311 

151 

FOR  j:«i  to  ncorelast  do 

536 

1 

13:2 

167 

BEGIN 

537 

1 

13:3 

167 

1F(TEHP2>C0RECJ]  DIV  10000)  AND  (C0RECJ3  DIV  10000*10000=CORECJ])  THEN 

538 

1 

13:4 

274 

BEGIN 

539 

1 

13:5 

274 

SEEK ( DAT ANODE , C0RE2C J3  > 1 

540 

1 

13:5 

298 

GET (DAT ANODE); 

541 

1 

13:5 

306 

)(0BJECT  I VE :  «DAT  ANODE''  .TAXA; 

542 

1 

13:5 

316 

NOB  JECT I  VE :  sDAT  ANODE'' .  NT  AXAt  2  3 : 

543 

1 

13:4 

331 

end; 

544 

1 

13:3 

331 

1F(TEHP>C0RECJ3  DIV  100)  AND(C0REIJ3D1V 

100  »  100-C0RECJ3)  THEN 

545 

1 

13:4 

431 

BEGIN 

546 

1 

13:5 

431 

SEEK  <  P AT ANODE ,C0RE2CJ3 ) ; 

547 

1 

i3:s 

455 

GET (DAT ANODE); 

548 

1 

13:5 

463 

XFUNPUR.'^DATANODE''.  TAXA; 

549 

1 

13:5 

473 

NFUNPUR : «DAT ANODE* . NT AXAC  3  3 ; 

550 

1 

13:4 

488 

end; 

551 

1 

13:3 

488 

IF  CORECNODE3-CORECJ3  THEN 

552 

1 

13:4 

531 

BEGIN 

553 

1 

13:5 

531 

SEEK ( DATANODE . C0RE2C J3 ) 1 

554 

1 

13:5 

555 

GET (DAT ANODE); 

555 

1 

13:5 

563 

XCHARAC :  >DAT  ANODE'' .  TAXA 1 

556 

1 

I3:s 

573 

NCHARAC :  -DATANODE* .  NT  AXAC  4  3  ; 

557 

1 

13:4 

588 

end; 

558 

1 

13:2 

588 

end; 

559 

1 

i3:o 

598 

end; 

560 

1 

i3:o 

614 

SETUPSCREEN  sets  up  header  for  the  top  of  each  page 

[or  screen]  with  appro- 

priate  information. 

The  header  contains  the  system  class,  system,  subsystem. 

aspect, 

objectives. 

functional  purpose  and  characteristics 

information  for  the 

attributes  and/or  measures  on  the  display. 

Ml 

1 

1410 

1 

(««Pt)8R0CEDURE  TOPPAGE! 

M2 

1 

i4:o 

0 

BEGIN 

563 

1 

I4:i 

0 

PAGE<PRNT)$ 

564 

1 

i4:i 

10 

h:«length<cursys)$ 

M5 

1 

1411 

18 

IF  M>16  THEN 

566 

1 

1412 

25 

n:-16; 

M7 

1 

14  :i 

29 

LlNE:>C0PY<CURSrSrlfH>; 

568 

1 

I4:i 

48 

UR1TE(PRNT,'«',L1NE,'  SystMS*); 

569 

1 

14: 1 

90 

n:*16-length(Cursys); 

570 

1 

i4:i 

100 

FOR  l:>1  to  n  do 

571 

1 

14:2 

116 

URITE(PRNT«'  *>; 

572 

1 

i4:i 

136 

h:«length(cursp); 

573 

1 

14*.  1 

144 

IF  N>16  then 

574 

1 

1412 

151 

n:>16; 

575 

1 

14*.  1 

155 

line:<copy<cursp, 1 .h> ; 

576 

1 

14  :i 

174 

urite(prnt,'«',line>; 

577 

1 

I4:i 

196 

n:»i6-length(cursp); 

578 

1 

i4:i 

206 

FOR  l:>i  to  n  do 

579 

1 

14:2 

222 

URITE(PRNT,*  ')! 

580 

1 

i4:i 

242 

h:>length(cursub>; 

581 

1 

i4:i 

250 

IF  H>16  then 

582 

1 

14:2 

257 

h:>16; 

583 

1 

i4:i 

261 

line:>copy<cursub,i»h); 

584 

1 

i4:i 

280 

URITE(PRNT,'«',L1NE>; 

585 

1 

14*.  1 

302 

n:s16-length<cursub); 

586 

1 

I4:i 

312 

FOR  l:=i  to  n  do 

587 

1 

14:2 

328 

URITE<PRNT,'  'i; 

588 

1 

i4:i 

348 

URlTELN ( PRNT , ' « ' , P6C  >  $ 

589 

1 

i4:i 

378 

IF  NPR1NT>>1  THEN 

590 

1 

14:2 

385 

URlTELN(PRNT,'Obj»ctive:C',NOBJECTIOE>'3'>XOI)JECTIOE>; 

591 

1 

14:1 

450 

IF  NPRINT>=2  THEN 

592 

1 

14:2 

457 

HRI  TELN<PRNT ,  'Fct  1  Prps  .*  C '  .NFUNPURf '  3 '  t  XFUNPUR  >  ,* 

593 

1 

14:1 

522 

IF  NPRINT«3  THEN 

594 

1 

14:2 

529 

HRITELN  <  PRNT , ' Cho  r*t ic«: t ' .HCHARAC , ' 3 ' 1 XCHARAC ) f 

595 

1 

I4:i 

594 

«RITELN<PRNT,'  '){ 

596 

1 

i4;o 

612 

end: 

597 

1 

l4;o 

630 

TOPPAGE  prints  appropriate  header  information  at  the  top  of  each  page 


598 

1 

1510 

1 

<«tP*)fiioccDUftE  topscreen; 

599 

1 

isto 

0 

BEGIN 

800 

1 

isn 

0 

PAGE ( OUTPUT)! 

801 

1 

1511 

10 

N!>LENGTH(CURSrS)t 

802 

1 

is:i 

18 

IF  N:>18  THEN 

803 

1 

1512 

25 

Hl'Ul 

804 

1 

i5:i 

29 

line:«copt<cursys.i.h); 

80S 

1 

1511 

48 

UR1TE('«',LINE.'  SytimsM,* 

808 

1 

i5:i 

90 

00T0XY(28,0); 

807 

1 

I5:i 

95 

ni>length(cursp); 

808 

1 

is:i 

103 

IF  M>18  THEN 

809 

1 

15:2 

no 

H!-18$ 

810 

1 

is:i 

114 

LINEl-COPYlCURSPnrH); 

811 

1 

is:i 

133 

URlTE('t‘,LINE)$ 

812 

1 

is:i 

155 

60T0XY( 44.0)1 

813 

1 

is:i 

180 

Ni>LENGTH<CURSUii)l 

814 

1 

ISM 

188 

IF  N>18  THEN 

815 

1 

is:2 

175 

H!«18i 

818 

1 

is:i 

179 

LINE 1 >C0PY ( CURSUB , 1 .M) 1 

817 

1 

15:1 

198 

URITELNr«',LINE).‘ 

818 

1 

15:1 

228 

COTOXYt 82.0)1 

819 

1 

15:1 

233 

UR1TELN<'$'.PAC)1 

820 

1 

15:1 

283 

N 1 -LENGTH ( XOBJECT I UE ) 1 

821 

1 

15:1 

271 

IF  H>87  THEN  N:-87; 

822 

1 

15:1 

282 

LINE  1 -COPY ( XOBJECT I VE . 1 .N) 1 

823 

1 

is:i 

301 

IF  NSCREEN>-1  THEN 

824 

1 

is:2 

308 

HRITELNl 'Ob Jec tiveC ' .NQBJECTIVE. '31' .LINE ) 1 

825 

1 

15:1 

378 

N 1 -LENGTH (XFUNPUR); 

828 

1 

is:i 

384 

IF  H>87  THEN  H 1-871 

827 

1 

1511 

395 

LINE 1 -COPY ( XFUNPUR. 1 .H) 1 

828 

1 

1511 

414 

IF  NSCREEN>-2  THEN 

829 

1 

1512 

421 

NRITELNl 'Fetl  Prptl'.NFUNPUR.'Jl '.LINE)1 

830 

1 

1511 

489 

H 1 -length  (XCHARAOl 

831 

1 

1511 

497 

IF  H>87  THEN  HI -871 

832 

1 

1511 

508 

L INC 1 -COP Y ( XCHARAC . 1 . H ) 1 

833 

1 

1511 

527 

IF  NSCREEN-3  THEN 

834 

1 

1512 

534 

URITELNl 'ChrctstcsC ' .NCHARAC. ' 11 ' .LINE) 1 

835 

1 

1511 

802 

URITELNl'  ')! 

834 

1 

1510 

820 

end; 

837 

1 

1510 

832 

TOPSCREEN  displays  appropriate  header  information  at  the  top  of  each  sereen. 


«3a 

1 

i4:o 

1 

(••PtlPROCEOURE  RRMTATTRLINCI 

«39 

i 

14t0 

0 

8EGIN 

A40 

1 

14:1 

0 

RESET  <  RTTRI8UTES . NRREATTRIRUTES  >  t 

A41 

1 

14:1 

13 

SEEK<RTTRI8UTES.NCURATTRIBUTE)) 

442 

t 

14:1 

24 

OET(RTTRIMTES)i 

443 

1 

14tl 

32 

K :«ATTRI BUTES* . NBESCR IPTORtSl 1 

444 

1 

14il 

47 

LINE :  •ATTRIBUTES'^ .  DESCRIPTOR! 

44S 

1 

I6il 

57 

MlTELN(PRNT,LINEf  'C '  '  3' )  1 

444 

1 

14:1 

109 

aOSE<  ATTRIBUTES)! 

447 

1 

14:0 

118 

END! 

448 

1 

t4i0 

130 

PRNTATTRLINE  prints  one  attribute  when  called  by  PRNTTOP, 


A49 

1 

l7tD 

1 

(««P»)PR0CEDURE  ATTRLINEDISPLAY; 

«S0 

1 

I7t0 

0 

BEGIN 

ASl 

1 

i7ti 

0 

RESET ( ATTRI BUTES , NAHEATTRIBUTES  > 1 

652 

1 

17:i 

13 

SEEK<ATTRIBUTES,NCURATTRIBUTE>: 

653 

1 

1711 

24 

GET(ATTRIBUTES); 

654 

1 

17:i 

32 

K:  -ATTRIBUTES'^ .  NDESCRIPTORCS]  I 

655 

1 

1711 

47 

LINE : -ATTRIBUTES^ . DESCRIPTOR; 

656 

1 

17: 1 

57 

n:-length(line); 

657 

1 

17: 1 

65 

IF  H>67  THEN 

65B 

1 

17:2 

72 

n:-67; 

659 

1 

i7:i 

76 

line:-copy<line«i«h); 

660 

1 

i7:i 

95 

IIRITELN<LINE.'['fK,'l'>; 

661 

1 

I7:i 

147 

CLOSE (ATTRIBUTES); 

662 

1 

i7:o 

156 

end; 

663 

1 

i7:o 

168 

ATTRLINEDISPLAY  adds  an  attribute  to  the  header  for  a  measurement  item 
display. 


A44 

1 

18:9 

1 

($«F»)PROCE9URE  PDlNtONEATTRIOUTEl 

645 

1 

i8:o 

0 

BEGIN 

666 

1 

i8:i 

0 

RESET ( ATTRIBUTES , NANEATTRIBUTES ) i 

667 

1 

1811 

13 

SEEK (ATTRIBUTESt  NCURATTRIBUTE  > 1 

668 

1 

i8:i 

24 

6ET(ATTRI8UTES):  - 

669 

1 

I8:i 

32 

UR1TE(PRNT,NATTR,'.  t’>} 

670 

1 

I8:i 

60 

FOR  J:-1  to  *5  DO 

671 

1 

18:2 

74 

BEGIN 

672 

1 

18:3 

74 

K:-ATTRlBUTES^.NDESCRlPTORtJ]i 

673 

1 

18:3 

91 

urite<prnt,k,'.'); 

674 

1 

18:2 

113 

end: 

675 

1 

i8:i 

123 

LINE :  -ATTRIBUTES'^ .  DESCRIPTOR! 

676 

1 

I8:i 

133 

URITELN<PRNT,']',LINE>! 

677 

1 

18: 1 

163 

close: ATTRIBUTES)! 

678 

1 

i8:o 

172 

END! 

679 

1 

i8:o 

186 

PRINTONEATTRIBUTE  prints  one  attribute  in  the  body  of  the  attribute  display 


690 

1 

19:8 

1 

ittF-oraocEDURE  oneattributeoisflay; 

481 

1 

i9:o 

0 

BEGIN 

482 

1 

i9:i 

0 

reset: ATTRl BUTES , NAME ATTRIBUTES ) 1 

483 

1 

i9:i 

13 

SEEK<ATTRIBUTES,NCURATTRIBUTEU 

484 

1 

i9:i 

24 

GET(ATTRIBUTES); 

485 

1 

19: 1 

32 

HRITECNATTR,'.  C')l 

484 

1 

i9:i 

40 

FOR  j:-l  TO  5  00 

487 

1 

19:2 

74 

BEGIN 

488 

1 

19:3 

74 

K:>ATTRIBUTES*.N0ESCRIPT0RtJ3t 

48? 

1 

19:3 

91 

NRITE(K,'.')i 

4?0 

1 

19:2 

113 

ENO; 

4?1 

1 

I9:i 

123 

LINE :  >ATTRI  BUTES''.  descriptor; 

492 

1 

1911 

133 

llength:-4o: 

493 

1 

19:1 

137 

NRITE('l'); 

494 

1 

19:1 

147 

indent:«i4: 

495 

1 

I9:i 

151 

shoualine; 

494 

1 

19:1 

153 

NRITELN<'  '>; 

497 

1 

19:1 

171 

close<attributes): 

498 

1 

i9:o 

180 

end; 

499 

1 

19:0 

194 

ONEATTRIBUTEDISPLAY  displays  one  attribute  in  the  body  of  the  attribute 
display. 


700 

1 

2018 

1 

PROCEDURE  PRINTTHERTTRIDUTESI 

70t 

1 

2o:o 

0 

8E61N 

702 

1 

2o:i 

0 

NATTRt«0t 

703 

1 

2011 

4 

0K:>FM.SEt 

704 

1 

2o:i 

8 

MRITELN<PRNTi'N»osurabl»  Rttributvs — To  ovaluato  •ffoctivmot*  in  MMling  ihi« 

705 

1 

2o:i 

85 

chr<13)«'  chorocteriktiCf  th*  following  attributes  con  be 

Matured:')} 

704 

1 

2011 

182 

FOR  NCURRTTRIDUTEl-l  TO  NATTRLRST  DO 

707 

1 

2012 

198 

DEGIN 

708 

1 

2013 

198 

TENPXl-ATTRCORECNCURATTRIDUTEl  DIV  100} 

707 

1 

2013 

235 

TEMPI -TENPX} 

710 

1 

2013 

251 

IF  TENP«COREtNODEl  THEN 

711 

1 

2014 

282 

BEGIN 

712 

1 

2015 

282 

ok: -TRUE} 

713 

1 

2015 

284 

NATTRl-NnTTRFl} 

714 

1 

2015 

294 

printoneattridute: 

715 

1 

2014 

294 

END} 

714 

1 

2012 

294 

END} 

717 

1 

2011 

304 

IF  OK-FALSE  THEN 

718 

1 

2012 

314 

MRITELNIPRNT,'  ...none')} 

719 

1 

2010 

344 

END} 

720 

1 

2010 

358 

PRINTTHEATTRIBUTES  prints  the  body  of  the  attribute  display  on  the  printer. 


721 

1 

21  ill 

1 

(tOPtiraOCEDURE  SHOUATTRIBUTES; 

722 

1 

21  iO 

0 

•EGIN 

723 

1 

2i:i 

0 

NATTR!>0} 

724 

1 

21il 

4 

FOR  i:*l  TO  20  DO 

723 

1 

21 :2 

18 

8E6IN 

724 

1 

21 :3 

18 

ATTRINDEXClli-Oi 

727 

1 

2i:3 

33 

HEASINOEXCIi:*Oi 

728 

1 

21  !2 

48 

end; 

72? 

1 

2i:i 

38 

60T0XY(0.4)i 

730 

1 

21  :i 

43 

HRlTE<CHR(ll>)i 

731 

1 

21  :i 

73 

ok!«false; 

732 

1 

21  :i 

77 

DlSRCOUNTi-Oi 

733 

1 

2i:i 

81 

HRITELN< ‘H«4surabl*  Attribuie«—To  •valuot*  •rrcciivvnccc  in  Meting  thic 

734 

1 

2i:i 

138 

cbr(13)i'  characteristic f  the  following  attributes  con  be  eeasured!')! 

735 

1 

2i:i 

255 

FOR  NCURATTRlBUTEi-l  TO  NATTRLAST  DO 

734 

1 

2112 

271 

BEGIN 

737 

1 

21 :3 

271 

TENPXi'ATTRCORECNCURATTRIBUTEl  DIO  lOOi 

738 

1 

21:3 

308 

TENPi'TEHFXi 

739 

1 

21:3 

324 

IF  TEHP>C0RECN0DE1  THEN 

740 

1 

21!4 

355 

BEGIN 

741 

1 

21  :s 

355 

IF  DISPCOUNT  >>10  TICN 

742 

1 

21:4 

342 

BEGIN 

743 

1 

21:7 

342 

DISPCOUNT:«Oi 

744 

1 

21:7 

344 

anykey; 

743 

1 

21:7 

348 

GOTOXY<0,4); 

744 

1 

21:7 

373 

urite(Chr(ii)>; 

747 

1 

21!4 

383 

end: 

748 

1 

21iS 

383 

OK  i 'True; 

749 

1 

21!S 

387 

NATTft:>NATTR4i; 

750 

1 

21!S 

395 

ATTRINt)EXCNATTRl:>NCURATTftII)UTE; 

751 

1 

21!S 

412 

PCi«o; 

752 

1 

21  !5 

414 

oneattributedisplay; 

753 

1 

2i:s 

418 

IF  PC»1  THEN 

754 

1 

21:4 

425 

DI SPCOUNT : >01 SPCOUNT t 1 ( 

755 

1 

21!S 

433 

PC:«o; 

754 

1 

21  :s 

437 

DISPCOUNT :>DISPC0UNT41 { 

757 

1 

21:4 

445 

end; 

758 

1 

21:2 

445 

end; 

759 

1 

21:1 

455 

IF  OK=FALSE  THEN 

760 

1 

21:2 

443 

URITELNI'  •xnone'i; 

741 

1 

21:0 

493 

end: 

742 

1 

21:0 

312 

SHOWATTRIBUTES  displays  the  body  of  the  attribute  display  on  the  screen, 


7«3 

1 

2218 

1 

(*tP«>PROCEDURE  REUOltDATTlilBUTESl 

7A4 

1 

2210 

0 

BEGIN 

7iS 

1 

2211 

0 

IF  OK  THEN 

7M 

1 

2212 

5 

BEGIN 

747 

1 

2213 

5 

HEFEAT 

748 

1 

2214 

5 

00T0XY(O,15)t 

747 

1 

2214 

10 

MtlTEfCNfUlD): 

770 

1 

2214 

20 

HftITEl'Uhich  on*  (type  0  if  dont)  T')l 

771 

1 

2214 

40 

KEYNt 

772 

1 

2214 

42 

IF  (KO)  OR  (1>NATTR>  THEN 

773 

1 

2215 

77 

BEGIN 

774 

1 

2214 

77 

MRITELNl 'P1m«»  typ*  on  Initgor  botwoon  0  ond  'fNATTR.'.'lt 

775 

1 

2214 

154 

anykey; 

774 

1 

2215 

158 

enb; 

777 

1 

2213 

158 

UNTIL  <l>-0)  ANB  (1<-NATTR>; 

778 

1 

2213 

173 

IF  lOO  THEN 

779 

1 

2214 

180 

BEGIN 

780 

1 

2215 

180 

ll-ATTRlNBEXCn; 

781 

1 

2215 

197 

HRITELNI 'Ploot*  typ*  tbo  now  ottribuio  dotcriptorl  '); 

782 

1 

2215 

259 

HR1TE(' . M; 

783 

1 

2215 

284 

inline; 

784 

1 

2215 

284 

RESET < ATTRIBUTES.NAHEATTRIBUTES ) ; 

785 

1 

2215 

299 

SEEK(ATTRlBUTES.t); 

784 

1 

2215 

310 

GETtATTRlBUTES); 

787 

1 

2215 

318 

IF  LENGTH(LINER)<49  THEN 

788 

1 

2214 

327 

AT  TRl  BUTES^' .  DESCRIPTOR!  'L INER 

789 

1 

2215 

332 

ELSE 

790 

1 

2214 

339 

ATTRIBUTES* . DESCRIPTOR 1 >COPY ( L INER, 1 , 48  > 1 

791 

1 

2215 

358 

SEEK(ATTR1BUTES,I); 

792 

1 

2215 

349 

PUTIATTRIBUTES); 

793 

1 

2215 

377 

CLOSE! ATTRIBUTES); 

794 

1 

2214 

384 

END! 

795 

1 

2212 

384 

END 

794 

1 

2211 

384 

ELSE 

797 

1 

2212 

388 

BEGIN 

798 

1 

2213 

388 

HRITELNC 'Thoro  oro  no  oitributot  for  thl»  porforoonco  iteo'>; 

799 

1 

2213 

457 

anykey; 

800 

1 

2212 

459 

end; 

801 

1 

2210 

459 

end; 

602 

1 

2210 

478 

803 

1 

2210 

478 

REWORDATTRIBUTES  asks  which  attribute  to  reword.  Then  it  asks  the  analyst 
to  reword  the  attribute. 


804 

1 

2318 

1 

(••POPftOCEOURE  DELETE4TTRI8UTESi 

iSI 

1 

2310 

0 

8EG1N 

1 

2311 

0 

IF  OK  THEN 

1 

2312 

3 

8E6IN 

1 

2313 

3 

REPEAT 

809 

1 

2314 

3 

eOTOXYl 0,13)1 

810 

1 

2314 

10 

WRITE (CHRlll))! 

811 

1 

2314 

20 

URITEl'Uhich  on*  <typ*  0  it  done)  ?')1 

812 

1 

2314 

40 

keyn; 

813 

1 

2314 

42 

IF  (KO)  OR  (I>NATTR>  TICN 

814 

1 

23!S 

77 

BEGIN 

81S 

1 

2314 

77 

URITELNI'PImm  iyp*  on  integer  betwen  0  and  ',NATTR,'.')1 

814 

1 

2314 

134 

ANYKEY  1 

817 

1 

2313 

138 

enb; 

818 

1 

2313 

138 

UNTIL  <I>«0)  AND  (I<-NATTR>| 

819 

1 

2313 

173 

IF  lOO  THEN 

820 

1 

2314 

180 

BEGIN 

821 

1 

2313 

180 

li-ATTRINDEXCIll 

822 

1 

2313 

197 

RESET(ATTRIBUTES,NAHEATTRI8UTES> 1 

823 

1 

2315 

210 

SEEK<ATTRIPUTES,I>; 

824 

2313 

221 

GET(ATTRIBUTES): 

82S 

1 

2313 

229 

FOR  Jl-1  TO  4  00 

824 

1 

2314 

243 

ATTRI BUTES^ . NDESCRIPTORIJ] 1 -0 1 

827 

1 

2313 

248 

ATTRIBUTES''. DESCRIPTOR!*'  '1 

828 

1 

2313 

298 

SEEKIATTRIBUTES.DI 

829 

1 

2313 

309 

PUT(ATTRIBUTES>S 

830 

1 

2313 

317 

CLOSE(ATTRIBUTES)t 

831 

1 

2313 

324 

ATTRCORECnixOi 

832 

1 

2314 

333 

end; 

833 

1 

2312 

333 

END 

834 

1 

2311 

333 

ELSE 

83S 

1 

2312 

333 

BEGIN 

834 

1 

2313 

333 

URITELNI 'Thtrt  or*  no  ottributoa  Tor  ibi»  porToroonc*  iton'); 

837 

1 

2313 

424 

ANYKEY! 

838 

1 

2312 

424 

end; 

839 

1 

2310 

424 

END! 

840 

1 

2310 

444 

DELETEATTRIBUTES  asks  analyst  which  attribute  to  delete.  Then  it  deletes 
the  attribute. 
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841 

1 

24:8 

1 

(MPI)FMCEDURE  ADDATTRIBUTES; 

842 

1 

24t0 

0 

BEGIN 

843 

1 

2411 

0 

IF  NATTRLAST>«200  THEN 

844 

1 

2412 

9 

BEGIN 

845 

1 

24:3 

9 

HRITELNl 'DATASET  CONTAINS  200  ATTRIBUTE  LIMIT'); 

846 

1 

24:3 

65 

antkey; 

847 

1 

24:2 

67 

end; 

848 

1 

24: 1 

67 

FOR  j:«l  TO  20  DO 

849 

1 

24:2 

81 

SCRATCHlJ3:>j; 

850 

1 

24:1 

108 

FOR  j:>l  TO  NATTRLAST  DO 

851 

1 

24:2 

124 

IF  CORECNOBE3XATTRCORECJ3  DIV  100)  THEN 

852 

1 

24:3 

176 

BEGIN 

853 

1 

24:4 

176 

K:-TRUNC(ATTRC0RECJ1-ATTRC0RECJ3  DIV  100  •  100); 

854 

1 

24:4 

241 

IF  KOO  THEN 

855 

1 

24:5 

248 

SCRATCHtK3:>0; 

856 

1 

24:3 

263 

end; 

857 

1 

24:3 

273 

<MI-S) 

858 

1 

24: 1 

273 

RESET! ATTRIBUTEStNAHEATTRIBUTES) 1 

859 

1 

24:i 

284 

(iiltt) 

860 

1 

24:1 

284 

FOR  J:>1  TO  4  DO 

861 

1 

24:2 

298 

ATTRIBUTES* . NDESCRIPTORC  J3 : -DATANODE* . NTAXAC  J3 ; 

862 

1 

24:1 

336 

ATTRIBUTES*. N0ESCRIPT0RC6i:>0; 

863 

1 

24:1 

349 

GOTOXY<0,1S); 

864 

1 

24:1 

354 

URITECCHROD); 

865 

1 

24: 1 

364 

HRITELNl 'PltaM  type  ih*  nnt  oliributt  descriptor:'); 

866 

1 

24:1 

425 

URITEl' . . 

867 

1 

24:i 

450 

inline; 

868 

1 

24: 1 

452 

IF  LINER-"  THEN 

869 

1 

24:2 

462 

BEGIN 

870 

1 

24:3 

462 

CLOSE! ATTRIBUTES); 

871 

1 

24:3 

471 

EXITIAODATTRIBUTES); 

872 

1 

24:2 

475 

end; 

873 

1 

24: 1 

475 

NATTRLAST :>NATTRLAST91 ; 

874 

1 

24:i 

483 

SEEKIATTRIBUTES.NATTRLAST) ; 

875 

1 

24:i 

494 

FOR  J:>20  DOHNTO  1  DO 

876 

1 

24:2 

508 

IF  SCRATCHCJ3O0  THEN 

877 

1 

24:3 

526 

BEGIN 

878 

1 

24:4 

526 

ATTRl BUTES* . NDESCRIPT0Rt53 : « J ; 

879 

1 

24:4 

541 

k:-j; 

880 

1 

24:3 

547 

end; 

ADDATTRIBUTES  asks  the  analyst  to  type  in  a  new  attribute,  then  it  adds 
the  attribute  to  the  attribute  list. 
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See  previous  page  for  program  description. 


893 

1 

2s:o 

1 

(•«Pt)l>R0CEDURE  PRINTMlEASUaC: 

894 

1 

2s:o 

0 

8E61N 

89S 

1 

25: 1 

0 

RESET  <  HE4SURES • NAHEHEASURES ) 1 

894 

1 

2s:i 

13 

SEEK  <  MEASURES . NCURHE ASURE ) i 

897 

1 

2S:i 

24 

SET (MEASURES); 

898 

1 

2s:i 

32 

URITE(PRNT,NHEASt'.  C'>; 

899 

1 

2s:i 

40 

FOR  j:-l  TO '4  DO 

900 

1 

25:2 

74 

BEGIN 

90J 

1 

2S:3 

74 

K  :«NEASURES'' .  NDESCRIFTORC  J1  { 

902 

1 

2s:3 

91 

URITE<PRNT,K,'.'); 

903 

1 

25:2 

113 

end: 

904 

1 

2s:i 

123 

line:>measuresa. descriptor: 

90S 

1 

25: 1 

133 

HR1TELN<PRNT, 'INLINE): 

904 

1 

2s:i 

143 

CLOSE ( MEASURES ) : 

907 

1 

2s:o 

172 

end: 

908 

1 

25:o 

184 

PRINTAMEASURE  prints  one  measure  in  the  body  of  the  measure  display, 


T 


V* 


'J»  .  W.’I 


»w 

1 

26:D 

1 

<t«P*) PROCEDURE  onehersuredisplay; 

910 

1 

2610 

0 

BEGIN 

911 

1 

26: 1 

0 

RESET ( HEASURES , NAHEHE ASURES  > { 

912 

1 

2611 

13 

SEEK  <  HEASURES i NCURHE ASURE  > { 

913 

1 

2611 

24 

GET (HE ASURES); 

914 

1 

2611 

32 

URITECNHEAS,'.  C')! 

915 

1 

26: 1 

60 

FOR  j:>l  TO  -6  DO 

914 

1 

26:2 

74 

BEGIN 

917 

1 

26:3 

74 

K  :«HEASURES''  .NDESCRlPTORt  J]  ; 

918 

1 

26:3 

91 

«RITE(K,'.'); 

919 

1 

26:2 

113 

end; 

920 

1 

26:i 

123 

line:>heasures'‘. descriptor: 

921 

1 

26:i 

133 

llen6Th:>6o: 

922 

1 

26: 1 

137 

URITEl'l'); 

923 

1 

26: 1 

147 

iNDENT:-ia: 

924 

1 

26: 1 

151 

SHOUALINC; 

925 

1 

26: 1 

153 

hriteln:'  '); 

926 

1 

26: 1 

171 

CLOSE (HE ASURES); 

927 

1 

26:0 

180 

end: 

928 

1 

26:0 

194 

ONEMEASUREDISPLAY  displays  one  measure  in  the  body  of  the  measure  display. 
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929  1  27:D  1  (••P»>PROCEDURE  PRNTTHEHEASURES; 

930  1  27:0  0  BEGIN 

931  1  27:i  0  NHEAS:«0; 

932  1  27 :i  4  ok: -FALSE! 

933  1  27!1  e  HRITELH<PRNT, 'Heosures— This  systea  attribute  con  be  onolyied  by  coaporingS 

934  1  27:i  SO  chr<13)»'  the  following  poroaeters  with  established  criteria:') 

935  1  27:i  143  FOR  NCURHEASURE:-!  TO  NHEASLAST  HO 

934  1  27:2  179  BEGIN 

937  1  2713  179  TEHPX:*HEASC0RE:NCUR«EASURE3  DIV  100! 

93B  1  27:3  214  IF  TEMPX=ATTRC0REtNCURATTRIBUTE3  THEN 

939  1  27:4  247  BEGIN 

940  1  27:5  247  OK: -TRUE! 

941  1  27:5  251  NNEAS.'-NHEASfi; 

942  1  27:s  259  PRINTAHEASUREi 

943  1  27:4  241  END! 

944  1  27!2  241  END! 

945  1  27 :i  271  IF  OK-FALSE  THEN 

944  1  27:2  279  MRlTELNiPRNT,'  ...none')! 

947  1  27:0  309  END! 

948  1  27:0  324 


PRNTTHEMEASURES  prints  the  body  of  the  measure  display, 


1 

2818 

1 

(««r»> PROCEDURE  SHOUHEASURES; 

9S0 

1 

2810 

0 

BEGIN 

?S1 

1 

2811 

0 

NHEASl«0i 

952 

1 

2811 

4 

FOR  1 1-1  TO  20  DO 

953 

1 

2812 

18 

HEASINDEXCni-O; 

954 

1 

2811 

43 

60T0XY(0,7); 

955 

1 

2811 

48 

WRITE(CHR<1U>; 

954 

1 

2811 

58 

OK! -FALSE! 

957 

1 

2811 

62 

DlSPHCOUNT!-li 

958 

1 

2811 

66 

WRITELN('N»acur«i--Thi<  •ysie»  ottrikut*  con  be  onolyzed  by  cooporing't 

959 

1 

2811 

138 

chr(13>t'  the  following  porooeiert  with  ectoblished  criteriol') 

960 

1 

2811 

221 

FOR  NCURHEASUREl-1  TO  NHEASLAST  DO 

961 

1 

2812 

237 

BEGIN 

962 

1 

2813 

237 

TEHPXl-HEASCORECNCURNEASURET  DIU  1001 

963 

1 

2813 

274 

IF  TEHPX-ATTRCORECNCURATTRIBUTEI  THEN  ^ 

964 

1 

2814 

305 

BEGIN 

965 

1 

2815 

305 

IF  DISPHCOUNT  >6  THEN 

966 

1 

2816 

312 

BEGIN 

967 

1 

2817 

312 

DISPHCOUNT 1-1! 

968 

1 

2817 

316 

ANYKEY! 

969 

1 

2817 

318 

G0T0XY(0,9>! 

970 

1 

2817 

323 

HRITE<CHR<11>)! 

971 

1 

2816 

333 

END! 

972 

1 

2815 

333 

OK! -TRUE! 

973 

1 

2815 

337 

NHEASl-NHEASfl! 

974 

1 

2815 

345 

HEASlNDEXINHEASll-NCURHEASURE ! 

975 

1 

2815 

362 

PCl-0! 

976 

1 

2815 

366 

ONEHEASUREDISPLAY! 

977 

1 

2815 

368 

IF  PC-1  THEN 

978 

1 

2816 

375 

DISPHCOUNT 1-DISPHCOUNTfl ! 

979 

1 

2815 

383 

PC  1*0! 

980 

1 

2815 

387 

DISPHCOUNT l-DISPHCOONTfl ! 

981 

1 

2814 

395 

end; 

982 

1 

2812 

395 

END! 

983 

1 

2811 

405 

IF  OK-FALSE  THEN 

984 

1 

2812 

413 

HRITELNl'  ...none')! 

985 

1 

2810 

463 

END! 

986 

1 

2810 

462 

SHOWiMEASURES  displays  the  body  of  the  measure  display  on  the  screen, 


9B7 

1 

2918 

1 

(«m)P80CEDURE  REU0RDHE6SURES) 

988 

1 

2910 

0 

BEGIN 

989 

1 

2911 

0 

REPEAT 

990 

1 

2912 

0 

GOTOXYlOtlS)) 

991 

1 

2912 

3 

‘  URITE<CHR(11>>) 

992 

1 

2912 

IS 

HRITF.t ‘Uhich  one  (type  0  it  done)  ?'>$ 

993 

1 

2912 

55 

KEYN) 

994 

1 

29)2 

57 

IF  (KO)  OR  <I>NnEAS)  THEN 

993 

1 

29)3 

72 

BEGIN 

996 

1 

29)4 

72 

HRITELN) 'please  type  on  integer  between  0  end  '«NHEAS>'.'>! 

997 

1 

29)4 

151 

anykey: 

998 

1 

29)3 

153 

enp: 

999 

1 

29)1 

153 

UNTIL  (l>-0)  AND  <I<>NHEAS>: 

1000 

1 

29)1 

168 

IF  lOO  THEN 

1001 

1 

29)2 

175 

BEGIN 

1002 

1 

29)3 

175 

i:>NEASINOEXCI]; 

1003 

1 

29)3 

192 

NRITELN) 'Please  type  t)>e  new  eeosure  descriptor)  ')) 

1004 

1 

29)3 

252 

URITE)' . . . ')) 

1003 

1 

29)3 

277 

INLINE) 

1006 

1 

29)3 

279 

RESET  <  HEASURES . NAHEHE ASURES  > 1 

1007 

1 

29)3 

292 

SEEK(HEASURES.I>: 

1008 

1 

29)3 

303 

6ET<HEASURES): 

1009 

1 

29)3 

311 

IF  LENGTH  (L1NERX69  THEN 

1010 

1 

29)4 

320 

HEASURES*. BESCR1PT0R)>L1NER 

1011 

1 

29)3 

325 

ELSE 

1012 

1 

29)4 

332 

HE ASURES*. BESCRIPT0R:-C0PY(LIHER,1,6B>: 

1013 

1 

29)3 

351 

SEEK(HEASURES,I)t 

1014 

1 

29)3 

362 

PUT<HEASUReS): 

1013 

1 

29)3 

370 

CLOSE<NEASURES) ; 

1016 

1 

29)2 

379 

END 

1017 

1 

29)1 

379 

asE 

1018 

1 

29)2 

381 

BEGIN 

1019 

1 

29)3 

381 

URITELN) 'There  ore  no  oeosurts  For  this  attribute')) 

1020 

1 

29)3 

441 

ANYKEY) 

1021 

1 

29)2 

443 

END) 

1022 

1 

29)0 

443 

END) 

1023 

1 

29)0 

460 

1024 

1 

29)0 

460 

REWORDMEASUKES  asks  analyst  which  measure  to  reword.  Then  it  asks  him/her 
to  reword  the  measure. 


102S 

1 

30:8 

1 

(OOPtlPItOCEDURE  DELETEHEASURESi 

1026 

1 

3o:o 

0 

BEGIN 

1027 

1 

3o:i 

0 

REPEAT 

1028 

1 

3012 

0 

60T0Xy(0.15>) 

1029 

1 

3012 

5 

URITE(CHR(ll>>t 

1030 

1 

3012 

15 

HRITEl 'Which  on*  (typ*  0  if  don*)  T'>I 

1031 

1 

3012 

55 

keyn: 

1032 

1 

3012 

57 

IF  (KO)  OR  <I>NNEAS>  THEN 

1033 

1 

3013 

72 

BEGIN 

1034 

1 

3014 

72 

HRlTELN('PI*acc  typ*  «n  int*4*r  b*tw**n  0  and  'tNNEASr 

1035 

1 

3014 

151 

ANYKEYS 

1030 

1 

3013 

153 

ENDS 

1037 

1 

3011 

153 

UNTIL  (I>«0)  OR  <I<>NNEAS>S 

1038 

1 

3011 

168 

IF  lOO  THEN 

1039 

1 

3012 

175 

BEGIN 

1040 

1 

3013 

175 

IS>HEASINDEXtnS 

1041 

1 

3013 

192 

RESET (HE ASURES .NAHEHEASURES  >  S 

1042 

1 

3013 

205 

SEEK<HEASURES>I)S 

1043 

1 

3013 

216 

GET(HEASURES>S 

1044 

1 

3013 

224 

FOR  j:<l  TO  6  DO 

1045 

1 

3014 

238 

HEASURES* . NDESCRIPTORC  JI 1 >0S 

1046 

1 

3013 

263 

NEASURES^. DESCRIPTOR!-'  'S 

1047 

1 

3013 

293 

SECK(HEASURES,I)S 

1048 

1 

3013 

304 

PUT<HEASURES>S 

1049 

1 

3013 

312 

CLOSE ( HEASURES > S 

1050 

1 

3013 

321 

HEASCORECIll-OS 

lost 

1 

3012 

348 

END 

1052 

1 

3011 

348 

ELSE 

1053 

1 

3012 

3S0 

BEGIN 

1054 

1 

3013 

3S0 

HRITELN< 'Th*rc  or*  no  Mosurcs  for  thia  ottribut*'>S 

loss 

1 

3013 

410 

ANYKEYS 

1056 

1 

3012 

412 

ENDS 

1057 

1 

3010 

412 

ENDS 

lose 

1 

3010 

430 

DELETEMEASURES  asks  the  analyst  which  measure  to  delete.  Then  it 
deletes  it. 


1059 

1 

3110 

1 

(8«P«) PROCEDURE  RODHERSURESl 

1000 

1 

3110 

0 

BEGIN 

1001 

1 

3111 

0 

IF  NNEASLAST>-400  THEN 

1002 

1 

3112 

9 

BEGIN 

1003 

1 

3113 

9 

URITELNt'DATA  SET  CONTAINS  LIHIT  OF  400  MEASURES'); 

1004 

1 

3113 

08 

anykey: 

1005 

1 

3113 

70 

EXITlADDtIEASURES); 

1000 

1 

3112 

74 

end: 

1007 

1 

3111 

74 

FOR  Jl-l  TO  20  DO 

1008 

1 

3112 

88 

scratchiji:>j: 

1009 

1 

3111 

115 

FOR  j:-l  TO  NHEASLAST  DO 

1070 

1 

3112 

131 

IF  ATTRCORECNCURATTRIDUTE3-(NEASCORE[J3  DIU  100)  THEN 

1071 

1 

3113 

183 

BEGIN 

1072 

1 

3114 

183 

K1«TRUNC(HEASC0RE[J3-MEASC0RE[J3  DIU  100  t  100): 

1073 

1 

3114 

248 

IF  KOO  THEN 

1074 

1 

3115 

255 

SCRATCHCK3:*0: 

1075 

1 

3113 

270 

end: 

1070 

1 

3113 

280 

<•«!-*) 

1077 

1 

3111 

280 

RESETtHEASURES.NANENEASURES) 1 

1078 

1 

3111 

291 

(Stilt) 

1079 

1 

3111 

291 

FOR  j:«l  TO  5  DO 

1080 

1 

3112 

305 

nCASURCS‘'.NDCSCRlPT0RCJ3:>ATTRlBUTES''.NDESCRIPT0RtJi; 

1081 

1 

3111 

343 

GOTOXYiOilS): 

1082 

1 

3111 

348 

MRITE(CHR(11)): 

1083 

1 

3111 

358 

HRITELNC 'Pleat*  type  th*  n*w  Mature  descriptor  (08  choraciert 

1084 

1 

3111 

442 

WRITE!' . '>: 

1085 

1 

3111 

407 

inline: 

1080 

1 

3111 

409 

IF  LINER-"  THEN 

1087 

1 

3112 

479 

BEGIN 

1088 

1 

3113 

479 

CLOSEiHEASURES): 

1089 

1 

3113 

488 

EXIT(ADDHEASURES): 

1090 

1 

3112 

492 

end; 

1091 

1 

3111 

492 

NNEASLASTl-NHEASLASTll : 

1092 

1 

3111 

500 

SEEK(HEASUREStNHEASLAST ) ; 

1093 

1 

3111 

511 

FOR  J:«20  DOUNTO  1  DO 

1094 

1 

3112 

525 

IF  SCRATCHCJlOO  THEN 

1095 

1 

3113 

543 

BEGIN 

1090 

1 

3114 

543 

MEASURES-', ndescriptorco3:-j: 

1097 

1 

3114 

5S8 

ki-j: 

1098 

1 

3113 

504 

end: 

ADD  MEASURES  asks  analyst  to  type  in  the  new  measures. 


llil 

1 

3111 

574 

if  ltiv9th<lin«r)<09  then 

B ' 

D 

31 :2 

583 

HEASURES^.DESCRIPTORt^LlNER 

B ' 

II 

31  :i 

586 

•lot 

B ' 

□ 

3i:2 

595 

.  descriptor  t*copy<linerflr08>r 

B ' 

H 

3i:i 

014 

PUT ( MEASURES >1 

1104 

1 

31il 

022 

TEHPX : >ATTRCqRECNCURATTRI8UTE3«1004K  t 

1105 

1 

3111 

070 

SCRATCHCKi:«0; 

1100 

1 

3i:i 

085 

HEASCORECNHEASLASn  t'TEHPXt 

1107 

1 

3i:i 

713 

CLOSE (MEASURES); 

HOB 

1 

31  to 

722 

end; 

1109 

1 

3i:o 

744 

See  previous  page  for  program  description, 


UlO  1  32:D 

1111  1  3210 

1112  1  3211 

1113  1  3211 

1114  1  3211 

1115  1  3211 

IIU  1  3211 

1117  1  3211 

1118  1  3211 

1119  1  3211 

1120  1  3210 

1121  1  3210 


1  utPOPMCCDURE  phinthcasures; 

0  lEeiN 

0  REURIUIPRNT.'PRINTERI'); 

21  TOPPAGEt 

23  MRlTELNlPfWTi'NMturobl*  AttribuiM--To  •voluoi*  effectivcntt*  in  Mating  this 

99  rbr(13)t'  ehoroctaristic*  the  folloMing  strcita  attributes  con  be 

Mosuretf!  '>) 

194  UftlTEl'  '11 
212  PANTATTRLINEI 

214  PRNTTHEHEASURESS 

214  CLOSEIPRNT): 

225  END! 

23B 


PRINTMEASURES  controls  printout  of  entire  page  of  measures, 


1122  133:0  1 

(MPOPftOCEDURE  EXAHlNEHEASUftESi 

1123  1  33:0  0 

8EGIN 

1124  133:1  0 

topscreen: 

112S  1  33)1  2 

6070X7(0.4)1 

1124  133:1  7 

imiTE(CHR(ll)>t 

1127  1  33:i  17 

URlTELNl'HMsuroblt  Attributes — To  ovoluoto  •froctivoness  in  ooeting 

this'. 

1128  1  33:1  93 

chr(13)t'  cboroctoristic.  tho  following  systoo  ottributes  con 

be  oeosured:  '>; 

1129  1  33:i  190 

MtITE('  Ml 

1130  1  33:1  204 

ATTRLINEOlSPLAYl 

1131  1  33:1  208 

SHOUHEASURESS 

1132  1  33:1  210 

G0T0XY<0.13)t 

1133  1  33:1  215 

MRITE(CHR(11)); 

1134  1  33:1  225 

HRITE('You  ooy  porforo  tho  following  procedures: '.chr( 13). 

1135  1  33:1  288 

'  1.  Add  new  oeosures  2.  Reword  0  oeosure'.chrdS). 

1134  1  33:1  343 

'  3.  Reoove  0  oeosure  4.  Print  these  oeosures'tChr<13>. 

1137  1  33:1  442 

'  5i  Return  to  Attributes  Level  '.chr<13>. 

1138  1  33:1  498 

*Pleose  select  one:  ')! 

1139  1  33:1  529 

REPEAT 

1140  1  33:2  529 

KEYNl 

1141  1  33:2  531 

IF  (Kl)  OR  <I>5>  THEN 

1142  1  33:3  544 

HRITELN( 'Please  type  on  integer  between  1  end  5')$ 

1143  1  33:1  402 

UNTIL  (1>-1)  AND  <1<<5): 

1144  1  33:1  415 

CASE  1  OF 

1145  1  33:1  420 

i:aodneasures: 

1144  1  33:1  424 

2:REUaRDHEASURES: 

1147  1  33:1  428 

3:tlELCTEnEASURES: 

1148  1  33:1  632 

4:printheasures: 

1149  1  33:1  436 

5:CXIT<EXAA1NEHEASURCS) ; 

1150  1  33:1  642 

end: 

1151  1  33:1  660 

EXAHINENEASURES: 

1152  1  33:0  662 

1153  1  33:0  676 

end: 

1154  1  33:0  676 

1155  1  33:0  674 

(*«I  •S:NEASATTR2.TCXT  «) 

1155  1  33:0  674 

<««I  «5:nEASATTR3.TCXT  «) 

EXAMINEMEASURES  controls  production  of  entire  display  for  analyzing  measures. 


ilM  1  34:D  1  (•m)PM)CEDURE  ONEPERFITEHDISPLAYI 

1157  1  34:0  0  KOIN 

1158  1  34:1  0  SEEK(IMTANODE,CORE2CNODE)>; 

1159  1  34:1  24  6ET<DATMI0DE)} 

1140  1  34:1  32  Kt>DATANOOE*.NTAXAtn]: 

1141  1  34:1  49  LINEt-OATANpDE^.TAXAl 

1142  1  34:1  59  LLENGTH:>721 

1143  1  34:1  43  IF  KOO  THEN 

1144  1  34:2  70  BEGIN 

1145  1  34:3  70  URITEC'  SK,'.  Ol 

1144  1  34:3  110  INDENT!«4; 

1147  1  34:3  114  shoualine; 

1148  1  34:3  114  MilTELN<'  ')} 

1149  1  34:2  134  ENO; 

1170  1  34!1  134  IF  <M0)  AND  (N-3)  THEN 

1171  1  34!2  147  MITELNI'  S'Proccs*  «t  th*  Objectives  ltv»r>t 

1172  1  34:1  238  IF  <K-0)  AND  (H>4)  THEN 

1173  1  34:2  251  NRITELNi'  SK>'.  'Process  at  the  Functionol  Purposes  level')! 

1174  1  34)0  351  END! 

1175  1  34!0  344 


ONEPERFITEMDISPLAY  displays  one  performance  iten  in  the  body  of  the  display 
used  to  select  which  performance  item  ought  to  be  processed  next. 


<««P$)PROCEDUKE  SHOUPERFITEHS) 

BEGIN 

ok:>false) 

dispcount:-o: 

IF  N*2  THEN  TEHPLIt-lOOOOOOi 
IF  N-2  THEN  TEHPLSI-IOOOOI 
IF  N>3  THEN  TEHPLlt-iOOOOI 
IF  H>3  THEN  TEHPL3:>t00; 

IF  H«4  THEN  TEHPL1!«100I 
IF  N-4  THEN  TEHPL3:-Ii‘ 

TEHPL2:>TEHP  DIV  TEHPLII 
FOR  NOOEIsl  TO  NCORELAST  00 
BEGIN 

IF  <TEHPL2>C0RECN00E1  DIV  TENPLl)  ANO 
(CORECNODEI  DIV  TEHPI.3  B  TEHPL3  >  CORECNODEI)  THEN 
BEGIN 

ok:>true: 

ONEPERFITEHDISPLAV; 

0ISPC0UNT:>DISPC0UNT41I 

end; 

IF  (DISPCOUNT  DIV  10  «  10=DISPC0UNT)  AND  (DISPCOUNTOO)  THEN 
BEGIN 

dispcount:>o: 

anykey; 

GOTOXY(O.S); 

HRITE<CHRai)>; 

end; 

end: 

IF  OK>FALSE  THEN 
URITELN('  ...none'); 


I  ill. 


1208  1  34tD 
1209130:0 
121013«:i 
1211  1  3611 
1212130:i 
121313A:1 
12141  36: 1 
121S1  36:i 
12161  36: 1 
12171  36: 1 
1218136:1 
1219136:i 

1220  1  36:i 

1221  136: 1 

1222  1  36:2 

1223  1  36:3 

1224  1  36:4 

1225  1  36:4 

1226  1  36:4 

1227  1  36:3 
1228136:1 

1229  1  36: 1 

1230  1  36:0 

1231  1  36:0 


1  (OtPOlPROCEDUK  CHANGECHAAOCTERlSTICSi 
0  KGIN 

0  topscreen; 

2  e0T0XY(0.4>: 

7  WRlTECCHRCll)); 

17  N:>4i 

21  VRITELNC'Th*  folloyinq  Chor«ct«ristics  art  ovoiloblt  for  tho  Functional  Purposo') 
111  SHOHPERF ITERS ; 

113  HRITEt'PlooM  soloct  on*:  *>,* 

144  keyh: 

146  NCHRRRC:>lt 

152  TERPt.4:*Il 

169  TEHP:*TERPfTENPL41 

195  FOR  l:-l  TO  300  DO 

211  IF  TEHP>CORECn  THEN 

242  BEGIN 

242  SEEK  (OAT  ANODE,  C0RE2Cn>l 

266  GET (OAT ANODE): 

274  xcharac:«datanode''.taxa; 

284  end; 

294  NSCREEN:>3: 

298  nprint:«3: 

302  end: 

316 


CHANGECHARACTERISTICS  governs  producing  the  list  of  characteristics  when 
analyst  is  selecting  a  different  performance  item. 


lix«1 


1260 

1 

38:ii 

1 

(MP«)  PROCEDURE  CHANGENODE  t 

1261 

1 

38:0 

0 

DEGIN 

1262 

1 

38: 1 

0 

REPEAT 

1263 

1 

38:2 

0 

NSCREEN:«Oi 

1264 

1 

38:2 

4 

nprint:>o; 

1265 

1 

38:2 

8 

PAC:«'  '1 

1266 

1 

38:2 

28 

topscreen; 

1267 

1 

38:2 

30 

00T0XY(0,4)i 

1268 

1 

38:2 

35 

HR1TE<CHR<11)): 

1269 

1 

38:2 

45 

URITEl'Th*  following  aspects  ore  part  of  the  APH: ' (Chrl 13) r 

1270 

1 

38:2 

109 

'  1.  Patentialities'tChr(13)> 

1271 

1 

38:2 

150 

'  2.  Processes 'tchr< 13) f 

1272 

1 

38:2 

186 

'  3.  Products'>chr(l3)f 

1273 

1 

38:2 

221 

'  4.  Environaent'tChr<13)« 

1274 

1 

38:2 

259 

'  5.  Constraints' rchrl 13) t 

1275 

1 

38:2 

297 

'Pleose  select  one:  '>1 

1276 

1 

38:2 

328 

KEYNi 

1277 

1 

38:2 

330 

PAc:-ASPCCTcn) 

1278 

1 

38:2 

348 

NPAc:«i; 

1279 

1 

38:2 

354 

TEHPL4:«i: 

1280 

1 

38:2 

371 

TEHP:«TEHPL4«1000000$ 

1281 

1 

38:2 

416 

GOT0XY(0,O); 

1282 

1 

38:2 

421 

NRITE<CHR(11))| 

1283 

1 

38:2 

431 

topscreen: 

1284 

1 

38:2 

433 

h:«2: 

1285 

1 

38:2 

437 

HRITELN('The  following  Objectives  are  avoilable  for  the  ospect  selected 

1286 

1 

38:2 

521 

SHOUPERPITEHS; 

1287 

1 

38:2 

523 

MRITEl 'Please  select  one.'  ')t 

1288 

1 

38:2 

554 

keyn: 

1289 

1 

38:2 

556 

N08JECTIUE:-t: 

1290 

1 

38:2 

562 

TE«PL4:»i: 

1291 

1 

38:2 

579 

TEMP : -TEHP+TEMPL4* 1 0000 I 

1292 

1 

38:2 

616 

FOR  i:«l  TO  300  DO 

1293 

1 

38:3 

632 

IF  TEMP»COREtn  THEN 

1294 

1 

38:4 

663 

BEGIN 

1295 

1 

38:5 

663 

SEEK  <  DAT ANODE  f  C0RE2t  n ) : 

1296 

1 

38:5 

687 

GET<DATANODE>; 

1297 

1 

38:5 

695 

XOD  JECT I UE :  sDAT  ANODE'' .  TAX  A 1 

1298 

1 

38:4 

70S 

end: 

1299 

1 

38:2 

715 

IF  NOBJECTIVEOO  THEN 

CHANGENODE  is  the  master  routine  to  specify  a  different  performance  item 
for  analysis. 


See  previous  page  for  program  description. 


1327 

1328 


40:D  1  (tfPOPROCEDURE  EXAHINEATTRIBUTES!  FORUARDI 

40:0  1 


These  procedures  are  presented  later  on  in  this  program 


1329 

1 

41  !D 

1 

(«tP*)PR0CEDURE  PREPEXATTRl 

1330 

1 

4i:o 

0 

BEGIN 

1331 

1 

4111 

0 

REPEAT 

1332 

1 

4112 

0 

NODEl>NODE41t 

1333 

1 

41  .‘2 

8 

IF  CORECNODEI  DIV  10000  t  100O0-C0REINODE3  THEN 

1334 

1 

41t3 

73 

BEGIN 

1335 

1 

4114 

73 

NSCREENl>i: 

1334 

1 

41  .‘4 

77 

NPRINTl'li 

1337 

1 

4114 

81 

SEEK  ( tiAT  ANODE ,  C0RE2CN0DE]  >  1 

133B 

1 

4114 

105 

GET (DAT ANODE)! 

1339 

1 

4114 

113 

XOB  JECT I VE 1  >DAT  ANODE'^  .TAXA! 

1340 

1 

4114 

123 

N0BJECTIVEl>0ATAN0DE«.NTAXAt2]: 

1341 

1 

4113 

138 

end; 

1342 

1 

4112 

138 

IF  (C0RECN00E3  DIV  100  *  100  -  CORECNODEl) 

1343 

1 

4112 

197 

AND(C0RECN0DE3  DIV  1000  «  lOOOOCORECNODE})  THEN 

1344 

1 

4113 

263 

BEGIN 

1345 

1 

4114 

263 

NSCREEN1>2; 

1346 

1 

4114 

267 

NPRINTl>2i 

1347 

1 

4114 

271 

SEEK  <  DAT ANODE . C0RE2CN0DE  3 ) ! 

1348 

1 

4114 

295 

GET (DAT ANODE)! 

1349 

1 

4114 

303 

XFUNPUR 1 «DAT ANODE A . TAXA ! 

1350 

1 

4114 

313 

NFUNPUR 1 <DAT ANODE* . NTAXAC  3] ! 

1351 

1 

4113 

328 

END! 

1352 

1 

4112 

328 

IF  CORECNODEI  DIV  100  «  100  <>  CORECNODEI  THEN 

1353 

1 

4113 

389 

BEGIN 

1354 

1 

4114 

389 

NSCREENl-3! 

1355 

1 

4114 

393 

NPRINT1*3! 

1356 

1 

4114 

397 

SEEK ( DAT ANODE ,CORE2CNODE 1 ) ! 

1357 

1 

4114 

421 

GET (DAT ANODE)! 

1358 

1 

4114 

429 

XCHARAC1*OATANODE*.TAXA! 

1359 

1 

4114 

439 

NCHAR AC 1 «DATANODE* .NT AXAI 4  3 ! 

1360 

1 

4113 

454 

END! 

1361 

1 

4112 

454 

Il«TRUNC(C0ftEtN0DE3  DIV  1000000)! 

1362 

1 

4111 

508 

UNTIL  lOO! 

1363 

1 

4111 

515 

PAC1= ASPECT! 13! 

1364 

1 

4111 

533 

NPAC1«I! 

1365 

1 

4110 

539 

END! 

1366 

1 

4110 

554 

PREPEXATTR  sets  up  header  for  an  attributes  analysis  display, 


1367 

1 

42:D 

1 

<«tP«>P80CEI>URE  PREEXAHINEATTRIBUTESi 

136B 

1 

4210 

0 

BEGIN 

136? 

1 

42:1 

0 

noiie:>o: 

1370 

1 

4211 

4 

PREPKEY(109t'Uould  you  like  to  begin  onalyzing  the  first  perforeonce  iteeT') 

1371 

1 

42:1 

71 

IF  ANS«'N'  THEN 

1372 

1 

42:2 

78 

changenode; 

1373 

1 

42:1 

80 

prepexattr;  • 

1374 

1 

42:1 

82 

EXANINEATTRIBUTES; 

1375 

1 

42:0 

84 

END) 

1376 

1 

42:0 

?6 

PREEXAMINEATTRIBUTES  prepares  computer  to  process  the  first  performance 
item. 


1377 

1 

4318 

1 

««M)PR0CEDURE  EXHEASl 

1378 

1 

4310 

0 

BEGIN 

1379 

1 

4311 

0 

IF  OK  THEN 

1380 

1 

4312 

5 

BEGIN 

1381 

1 

4313 

5 

REPEAT 

1382 

1 

4314 

5 

URITECUhich  one  <type  0  to  reconsider)  T')l 

1383 

1 

4314 

51 

KEYNl 

1384 

1 

4314 

53 

IF  (KO)  OR  <I>NATTR)  THEN 

1385 

1 

4315 

48 

BEGIN 

1384 

1 

4314 

48 

URlTELNI'Pleose  type  on  integer  between  0  ond 

1387 

1 

4314 

147 

ANYKEY! 

1388 

1 

4315 

149 

end; 

1389 

1 

4313 

149 

UNTIL  (I>>0)  AND  (I<>NATTR>! 

1390 

1 

4313 

144 

IF  I-O  THEN 

1391 

1 

4314 

171 

EXIT(EXHEAS); 

1392 

1 

4313 

175 

NCURATTRIBUTEUATTRINDEXCI3; 

1393 

1 

4313 

192 

IF  NCURATTRIBUTE>0  THEN 

1394 

1 

4314 

199 

EXAHINEHEASURES: 

1395 

1 

4312 

201 

END 

1394 

1 

4311 

201 

ELSE 

1397 

1 

4312 

203 

BEGIN 

1398 

1 

4313 

203 

G0T0XY(0,15); 

1399 

1 

4313 

208 

HRITE(CHR(11))! 

1400 

1 

4313 

218 

URITELNC 'There  are  no  attributes  to  anolyze')! 

1401 

1 

4313 

272 

anykey; 

1402 

1 

4312 

274 

end; 

1403 

1 

4310 

274 

end; 

1404 

1 

4310 

290 

EXMEAS  asks  analyst  which  measure  he  wishes  to  analyze, 


140S140:D  1  (tfPOPROCEDURC  EXMIINEATTRIBUTCSS 

1406  1  40:0  0  BEGIN 

1407 140M  0  REPEAT 

1408  1  4012  0  TOPSCREENt 

1409 14012  2  SHOUATTRIBUTESi 

1410  1  4012  4  60T0XY(0,15)( 

141114012  9  URITELN(CHR(11))| 

141214012  27  NRITEl'  You  My  pcrfora  ony  of  the  follouing  procedures! S  chr(13)> 

141314012  98  '  1.  Exoeine  eeosures  for  an  attribute  2.  Add  neu  attributes', chr(  13) r 

141414012  183  '  3,  Reuord  on  attribute  4.  Rcnove  an  attribute' ,chr(13), 

1415  1  4012  269  '  5.  Print  these  attributes  6.  Proceed  to  the  NEXT  perf  iten',chr(13), 

141614012  365  '  7.  Proceed  to  ANOTHER  perf  iten  8.  Select  o  different  onalytic  proc',chr<13) 

141714012  464  'Please  select  onel  ')t 

1418  1  4012  495  REPEAT 

1419  14013  495  KEYNl 

14201  4013  497  IF  (Kl)  OR  (1>8)  THEN 

1421  14014  510  URITELNl 'Please  type  an  integer  between  1  and  S'>1 

1422  14012568  UNTIL  <1>>1)  AND  (K^S); 

1423  14012  581  CASE  I  OF 

1 424  1  4012  586  1  lEXNEASl 

1425  1  4012  590  2!ADBATTRIBUTESi 

1426  1  4012  594  SlREMORBATTRIBUTESl 

1427  1  4012  598  4iOELETEATTRIfiUTES; 

1428  1  4012  602  SlPRINTATTRIBUTESl 

1429  1  4012  606  61PREPEXATTR! 

1430  14012  610  71BEGIN 

1431  1  4014  610  CHANGENOBEI 

1432  1  4014  612  PREPEXATTRi 

1433  14013  614  EHDi 

1434  1  4012616  B!EX1T(EXANINEATTR1BUTES>1 

1435  14012  622  ENBl 

1436  14011646  UNTIL  N0PE>>NC0RELAST1 

1437  14011655  VRlTELNl'All  perfernonce  itees  have  been  processed')! 

1438  14011  716  PRFPKEY<99, 'Bo  you  wish  to  review  any  itensT')! 

1439  14011  754  IF  ANS«'N'  THEN 

1440  1  4012  761  EXiriEXANINEATTRlBUTES)  1 

1441  14011  765  CHANGENOBEl 

1442  1  4011  767  EXAnlNEATTRIBUTESl 

1443  14010  769  ENBl 

1444  1  4010  786 

1445  14010786  <«•!  •S1HEASATTR3.TEXT  •) 

1446  1  4010786 


EXAMINEATTRIBUTES  governs  setting  up  an  entire  display  for  examining 
attributes. 


14471110  0««P»)K6IN 

144Slli0  0 

1449 ii:i  0  inlinecall:-o$ 

1430  1  111  93  NNCOSURES:«400; 

1451  till  99  N0TTRIBUTES:-200$ 

1432  1 1 1 1 105  BRRNCHlNi 

1433  1 1 > 1 107  DEFINEASPECTS 1 

1454  lltl 110  APNDSK:«C0NCAT<C0PY(CURSYS.l»2),(C0PY(CURSP,l,2>>iC0PY(CURSUBrl>2>t':')t 

1455  li:i 202  NAHEATCORE:«CONCAT<APNDSK,(COPY(CURSYStlt4)>.(COPY(CURSP,lr4>),(COPY(CURSUB.1.4)),'AC') 

1456  li:i 305  NAHEATTRIBUTES:«CONCAT(APHOSK,(COPY<CURSYS.l»4)>,(COPY<CURSP>l>4>),(COPy(CURSUB, 

l,4i).'AT'>( 

1457  li:i 408  NAHEHEC0RE:>C0NCAT(APHDSK,(C0PY(CURSYS>lt4>),(C0PY(CURSPtlt4)),(C0PY(CURSUB>lt4)),'HC') 

1458  11  :i 311  NAHEHEASURES:>C0NCAT<APHDSKt(C0PY(CURSYS,l,4>>,<C0PY(CURSP,l,4>>,(C0PY(CURSUB,lf 

4)), ‘HEX 

1439  li:i 614  C0RENAHE:>C0NCAT(APHIlSK.(C0PY(CURSYS.lt4)>,(C0PY(CURSP>li4))r(C0PY(CUR5UB>l>4)),'C0'); 

1460  li:i717  IMTANAHE:-C0MCAT(APHDSK.<C0PY(CURSYStl>4)).(C0PY(CURSP,lf4>>,(C0PY(CURSUBrlr4)),'FI'); 

1461  1  in  820  openoatafile; 

1462  1 1  :i  823  OPENATTRIBUTESFILEl 

1463  1 1 : 1 826  OPENHEASURESF ILE 1 

1464  11:1829  READATTRFILES 

1465  1 1 n  832  READHEASF ILE  t 

1466  11:1835  readcorefile: 

1467  1 1 : 1 838  SORTCOREFILE  t 

1468  11:1841  PREEXAHlNEATTRIBUTESi 

1469  11:1843  closeattrfile: 

1470  11:1845  closeheasfile: 

1471  li:i847  branchout: 

1472  li:i849  SETCHAIN('GREETINC'); 

1473  11:0863  END. 


RIAINROUTINE  for  specifying  attributes  and  measures. 


MEASUREMENT  PURPOSE  PROGRAM  (MEASPURP) 


The  measurement  purpose  program  allows  the  analyst  to  edit  measurement 
purposes  (adding,  rewording  and  deleting  as  appropriate).  It  also  allows  the 
analyst  to  associate  (or  disassociate)  measurement  purposes  with  characteristics. 
As  cliaracteristics  are  associated  and  disassociated,  the  corresponding  objectives 
and  functional  purposes  are  treated  in  a  similar  way.  Thus,  objectives  and 
functional  purposes  are  never  associated  (or  disassociated)  directly. 
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<•  Ronold  G.  Siiopiro  Vprsion  3.0  10/2S/B2t> 
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Progroo  ForoiituoS 
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i:d 
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38 

i:d 
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38 

3:d 

1 

PROCEDURE  SETCHRIN(TYTLE:STRING>i 

» 

38 

3:d 

1 

PROCEDURE  setcval(val:string>; 

10 

38 

4:d 

1 

PROCEDURE  GETCVAKVAR  VALISTRINO; 

11 

38 

s:d 

1 

PROCEDURE  SUAPON: 

13 

38 

6:d 

1 

PROCEDURE  SUAPOFFi 

13 

38 

6:d 

1 

14 

1 

i:d 

1 

Ucct  ChoinstuffS 

IS 

1 

1:0 

3 

These  procedures  ore  part  of  the  Apple  Computer's  CHAIN STUFF  library  entry. 
The  demonstration  package  uses  only  SETCHAIN  which  causes  another  program 
to  be  activated. 


(••P«)TYPE 
PASSriLE  -RECORD 

CURSYS , CURSP , CURSOR , PAC ! STRINGC80] t 

NCURSrs I NCURSP . NCURSUB , NPAC  t FLAGl ,FLA62  >  FLAGS  t INTEGER  f 

ENDI 

DATABASE-RECORD 

NTAXAt  ARRAYC1..4]  OF  INTEGER} 

TAXA:  STRlNGCaOli 

end; 

ISSUEFILE  -RECORD 

nun: integer; 

name:  ARRAYC1..21  OF  STRINCCGOi; 
data:  ARRAYC1..22S3  OF  1NTEGERC83; 

ENDI 

FASTFILE-RECORD 

PRINTIT .'PACKED  ARRAYCi..30030F  D(K)LEAN; 

end; 


PASSFILE  for  communication  between  programs  tsee  GREETING  program]. 
DATABASE  contains  a  basic  list  of  performance  items.  ISSUEFILE  contains 
measurement  purpose  names  and  references  to  performance  items.  FASTFILE 
allows  for  fast  printout  of  repeated  performance  items. 
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1 

i:d 

3 

iMPovoa 

38 

1 

1!D 

3 

DATONOOESFILE  OF  OOTAOASES 

38 

1 

i:i» 

348 

COREFILESFILE  OF  INTEGEatO]! 

40 

1 

i:d 

091 

PASSNOOESFILE  OF  PASSFILES 

41 

1 

IID 

1122 

ISSUESFILE  OF  ISSUEFILES 

42 

1 

i:o 

2180 

FASTISSUES  FILE  OF  FASTFlLE} 

43 

1 

i:d 

2499 

44 

1 

r.D 

2499 

XCHARAC . XFUNPua .  XOO JECTl VE . PAC .CURS YS. CURSP . CURSUO  S  STRINGC 80 1 

49 

1 

i:8 

2780 

NCURI SSUE 1 NCHARAC .NFUNPUa .NOB JECTl VE.NPAC , NCURSYS , NCURSP . NCURSUB S  INTEGER 

40 

1 

i:i* 

2794 

47 

1 

r.D 

2794 

APHDSKSSTRINGC81S 

48 

1 

i:d 

2799 

NANEFASTISSUE . CORENANE .OATANAIK.ISSUENANE  S  STR1NG124] S 

4? 

1 

i:o 

2891 

90 

1 

i:o 

2891 

CORES  ARRAYtl..300}  OF  INTEGERCB]; 

91 

1 

i:d 

3791 

C0RE2S  ARRAYC1..3001  OF  INTEGERl 

92 

1 

i:d 

4091 

93 

1 

t:D 

4091 

ISSUEDATAS  AaRAYC1..22S]  OF  INTEGERtBlS 

94 

1 

i:d 

4720 

99 

1 

i:d 

4720 

FLAGS  AaaAYC1..300]  OF  BOOLEANS 

90 

1 

1!0 

9020 

97 

1 

i:d 

9020 

ASPECTS  ARRAY! 1.. 91  OF  STRINGCtOlS 

98 

1 

1!0 

9000 

INVERSEAS  ARftAYC1..9]  OF  INTEGERS 

99 

1 

lID 

9071 

00 

1 

liD 

9071 

OISPCOUNT.GOPAGE, COUNT, INVERSE.HELP.NSCRECN.NODESINTEGER; 

01 

1 

i:o 

9078 

NCORELAST.NISSUES.NUISSUES.ITENCOUNTUNTEGERS 

02 

1 

i:d 

9082 

TEHPL1.TEHPL2.TEHPL3.TEHPL4,TENPLS.TEHPL0,TEHP,C0RELASTS  INTEGERtSlS 

03 

1 

i:d 

9100 

1.J.K.L|H.N.NN|INLINECALL,IN0ENT.NLENGTH.LLENGTH,PC,TCHP2SINTE6CRS 

04 

1 

IID 

9119 

09 

1 

ISO 

9119 

characteristic.nextcharacteristic.lastcharacteristicsbooleans 

00 

1 

ISO 

9122 

referenced .LONGUAY , DONE , OVER, OK .SKIP  S  BOOLEAN  S 

07 

1 

ISO 

9128 

08 

1 

ISO 

9128 

LlNCRSSTRINGteOi; 

09 

1 

ISO 

9109 

L1NESSTRINGC801S 

70 

1 

ISO 

9210 

PROCESSSSTRINGClSl; 

71 

1 

ISO 

9218 

72 

1 

ISO 

9218 

ANSHEa.aEGLlNESSTRINGCSOlS 

73 

1 

ISO 

9300 

74 

1 

ISO 

9300 

ANS.ANSHOLOS  CHARS 

79 

1 

ISO 

9302 

70 

1 

2S0 

1  paocEDuae  EXoaiNEissuEssFoauoRo; 

77 

1 

3S0 

1  paocEDuaE  coapacTissuESSFoauoao; 

78 

1 

3SD 

1 

78 

1 

3SD 

1 

<•<1  «9SUTILITY.TEXT«) 

79 

1 

3S0 

1 

These  strings,  arrays  and  variables  are  used  by  this  program 


eo 

1 

(MPOPROCEDURC  ANYKEYS 

nm 

0 

BEGIN 

0 

HRITELNS'  MS 

18 

HRlTELN('tM  Plaost  prts*  any  kay  to  continuo  M*')S 

31 

78 

85 

78 

READS ANS)S 

8« 

89 

(URtt) 

87 

89 

ENDS 

88 

1  4 

0 

102 

ANYKEY  displays  "Please  Press  any  Key  to  Continue"  then  it  awaits  a  Keypress 
before  returning  control  to  the  calling  procedure. 


m  Mm  gi  m 


:D  1  <»»P«>PROCEDUftE  helper; 

:0  0  BEGIN 

:i  0  WRITELNI'For  htlp  piMse  rpfcr  to  your  RPH  MANUAL. '); 

:o  Gi  end; 

:0  74 


HELPER;  due  to  core  limitations,  it  was  not  possible  to  implement  the  full 
HELP  facility.  Thus,  this  HELPER  merely  displays  the  message. 
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94  1 

610 

1 

(MM) PROCEDURE  KEYNt 

95  1 

610 

1 

VAR 

96  1 

6:d 

1 

answer:  STRINGC401: 

97  1 

6:d 

22 

It:  ARRAYC1..43  OF  INTEOERt 

98  1 

6:d 

26 

ok:boolean{ 

99  1 

6:d 

27 

no:  integer: 

100  1 

6:d 

28 

101  1 

6i0 

0 

BEGIN 

102  1 

6:o 

0 

<t4R-t) 

103  1 

611 

0 

REPEAT 

104  1 

6!2 

0 

REPEAT 

105  1 

613 

0 

answer:*'  't 

106  1 

613 

27 

ok:*true; 

107  1 

613 

30 

RCADLN<ANSWER>: 

108  1 

6i3 

49 

IF  length: ANSWER )>0  THEN 

109  1 

614 

57 

HRITELN('Plca»c  enter  the  integer  ogain'); 

110  1 

612 

107 

UNTIL  length: ANSWER ><>0: 

111  1 

612 

115 

IF  ( ANSWER! 13«'H'>  OR  (ANSWER! 1}« 'h ' >  THEN 

112  1 

613 

130 

helper: 

113  1 

6!2 

132 

FOR  i:-l  TO  4  DO 

114  1 

6:3 

147 

BEGIN 

115  1 

614 

147 

I 1 ! 1 3 : *ORO ( ANSWER! I 3 ) -48 : 

116  1 

6:4 

165 

IF  (1I!I3<0>  OR  (11C13>9>  THEN 

117  1 

6:s 

192 

BEGIN 

118  1 

6:6 

192 

IF  (1*1)  OR  (IICI3<>(0RD('  ')-4B>)  THEN 

119  1 

617 

214 

BEGIN 

120  1 

6:8 

214 

ok:«false: 

121  1 

6:8 

217 

WRITELN: 'PLEASE  RESPOND  WITH  A  POSITIVE  INTEGER'): 

122  1 

6:7 

275 

end: 

123  1 

615 

275 

end: 

124  1 

6:3 

275 

end: 

125  1 

6:i 

285 

UNTIL  ok«true: 

126  1 

6:i 

292 

iio:«iitii: 

127  1 

6:i 

302 

FOR  i:«2  TO  4  do 

128  1 

6:2 

317 

BEGIN 

129  1 

6:3 

317 

IF  :ll!13>»0)  AND  (II!I3<«9)  THEN 

130  1 

6:4 

344 

iio:*iio«iotiicii: 

131  1 

6:2 

361 

end: 

132  1 

6:2 

371 

(MRtt) 

133  1 

6:i 

371 

i:*iio: 

134  1 

6:o 

376 

end: 

135  1 

6:o 

398 

KEYN 

reads 

a  3 

or  4  digit  response  from  the  keyboard  and  places  it  into 

1. 

If 

an  H 

or  an 

h  are  typed  in,  it  places  a  999  in  I  and  calls  the  HELP  routine. 

If 

more 

than  4 

characters  are  typed,  only  4  characters  ore  read.  The  rest 

are 

ignored.  If  the  character(s)  are  not  positive  inlergers,  KEYN  will  display 

an 

appropriate  warning  and  wail  for  a  response. 

1 

-185- 


V. 


t  ($*n>MIOCEDURE  KEY} 


iM  1  7:» 

137  1  7:0  1  VMt 

138  1  7:v  1  113: integer: 

137  1  7:0  «  8E61N 

140  1  7:0  0  (t«R-t) 

141  1  7:i  0  rnsuer:-'  *1 

142  1  7:i  27  REREAT 

143  1  712  27  REAIH.N<ANSUER>: 

144  1  7:2  47  RNS:«ANSUERtn} 

145  1  7:2  55  IF  (ANSO'V')  AND  (ANSO'N'l  AND  (ANSO'H')  AND  (ANSO'y')  and 

144  1  7:2  78  (ANSO'nM  AND  (ANSO'h')  AND  (0RD(ANS>O27)THEN 

147  1  7:3  98  HR1TELN( 'PLEASE  RESPOND  YES  OR  N0t‘>t 

148  1  7:2  143  IF  (0RD(ANS»90)  THEN 

149  1  7:3  150  DEGIN 

150  1  7:4  150  112:-0RD<ANS)-32| 

151  1  7:4  157  ANS:-CMR(II3)t 

152  1  7:3  141  end: 

153  1  7:i  141  UNTIL  (ANS>'Y')  OR  (ANS-'N'l  OR  (ANS-'H'l  OR  (0RD(ANS>-27): 

154  1  7:i  184  (MR4t) 

155  1  7:i  184  IF  ANS«'H'  THEN 

154  1  7:2  193  helper: 

157  1  7:o  195  end: 

158  1  7:0  210 


KEY  reads  a  letter  response  from  the  keyboard.  If  response  is  1)  y  or  Y,  it  places 
a  Y  in  ANS  and  returns  to  calling  procedure;  2)  n  or  N,  it  places  on  N  in  ANS 
and  returns  to  calling  procedure;  3)  h  or  H,  it  calls  the  HELP  routine,  places  an 
H  in  ANS  and  returns  to  calling  program;  or  4)  any  other  key—it  displays  PLEASE 
RESPOND  YES  OR  NO  and  awaits  a  Y,  N,  H,  y,  n  or  h  response.  NOTE:  Only 
the  first  character/line  is  processed.  The  rest  is  ignored. 
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REPEAT 
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1 
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20 

KETl 

149 

1 

•tl 

22 

UNTIL  <ANS-'VM  OR  <ANS-'N'>  OR  (0R0(ANS>«27)( 

144 

1 

•to 

41 

ENDt 

147 

1 

•to 

94 

PREPKEY  displays  a  message  then  calls  KEY  to  read  a  letter  response  from  the 
keyboard.  If  a  response  is  not  Y,  y,  N,  n.  Yes  or  No,  it  redisplays  the  message 
and,  once  again,  waits  for  a  response. 
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1 

9:p 

1 

<0*P«)raOCEDURE  1NLINE1 
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1 

9:d 

1 

VAH 
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1 

9:b 
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L0N6LlMElST81N6C12S]i 
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SEGIN 
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1 

914 
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PREPKEr(39,'M  YOU  NISH  TO  TRUNCATE  TO  *8  CHARACTERS? 
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914 
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IF  ANS-'N*  THEN 
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BEGIN 
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LINeOK:«FALSEl 
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HRITELNI'PLEAK  TYPE  LINE  AGAIN!  ')t 
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END 
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ELSE 
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UNTIL  LXNEOKt 
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INLINECALL :>1NL1NECALL41 $ 
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clir(13)t'  —or  risk  letin*  ovorything  you  hov*  don*  iodoyDI 
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ENDl 
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LINERl-COPYlLONGLlNErl tN) 1 
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ENOl 
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INLINE  accepts 

up  to  80  characters  of  text.  If  more  than  80  characters  are 

specified,  it 

asks  if  it  ought  to  ignore  additional  characters.  If  told  to,  it  docs. 

Otherwise,  it 

allows  analyst  to  re-enter  the  line. 
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10t2 

72 

end; 

214 

1 

lOtl 

72 

Lt-UEN6THt 

217 

1 

ion 

7t 

MNiLE  amcLio'  •)  tm  (l>i)  m 

21S 

1 

lots 

04 

Lt«L-l| 

210 

1 

lOtl 

104 

Lt«L-ll 

220 

1 

ion 

114 

IF  L>0  THEN 

221 

1 

lots 

121 

OCOIN 

222 

1 

1013 

121 

SEQLINE 1 >COFV ( LINE , 1 .L > 1 

223 

1 

lots 

140 

NaiTELNtOEQLlNEn 

224 

1 

1012 

140 

CNOI 

22S 

1 

ion 

140 

LtaL«2t 

224 

1 

ion 

140 

NLENerNt«NLENSTH-L01 | 

227 

1 

lOil 

100 

IF  M.ENeTN<l  THEN 

228 

1 

1012 

107 

niT<SNOIMLlNE)| 

220 

1 

ion 

101 

SEOL 1 NE  t  <007  <  L I NE  .  L  .  NLENOTN  >  1 

230 

1 

ion 

212 

FOa  lt>l  TO  INOENT  00 

231 

1012 

220 

NNlTEt'  Mi 

232 

1 

ion 

240 

MaiTEtNEOLlNEn 

233 

1 

ion 

240 

FCt>FC41i 

234 

1 

loto 

240 

ENOt 

233 

1 

lOiO 

204 

SHOWALINE  displays  text  on  the  screen.  If,  by  chance,  the  text  is  longer  than 
the  amount  of  space  available  on  the  current  line,  the  display  continues  onto 
a  second  line. 


2M 

1 

ii:8 

1 

(84P«)PR0CEIlURE  ilMtCHIN} 

237 

1 

lliO 

0 

8e6IN 

23t 

1 

ii:o 

0 

<MI-8) 

23V 

1 

nil 

0 

aCSCTlPASSNODE. 'P4SSTMRU' >1 

240 

1 

ii:i 

IV 

ll-IORESULTi 

241 

1 

ii:i 

24 

(8414*) 

242 

1 

nil 

24 

IF  100  THEN 

243 

1 

11:2 

31 

BEGIN 

244 

1 

11:3 

31 

HRITELNl'PASSTHrtU  FILE  DOES  NOT  EXIST' >| 

243 

1 

11:3 

TV 

WlITELNt'  «**»«4FATAL  ERftOftttt***' > 1 

244 

1 

1113 

124 

MKITELNI'  M)t 

247 

1 

1113 

148 

ANYKEY! 

248 

1 

1113 

170 

SETCNAIN('PGH1')| 

24V 

1 

1113 

180 

EXIT(PROGRAH)! 

230 

1 

1112 

184 

END! 

231 

1 

1111 

184 

GET(PASSNOOE) ! 

233 

1 

nil 

1V2 

CURSYS :  -PASSNODE'' .  CURSYS ! 

233 

1 

1111 

202 

CURSP : -P ASSNODE  * . CURSP ! 

234 

1 

1111 

212 

CURSUD 1  -PASSNODE'' .  CURSU8 ! 

233 

1 

nil 

233 

PAC:>PASSNOOE''.PAC! 

234 

1 

nil 

330 

NCURSYSl-PASSNODE'^.NCURSYS! 

237 

1 

nil 

23V 

NCURSP : -PASSNODE^ . NCURSP ! 

238 

1 

nil 

248 

NCURSUD : >PASSNODE  ^ . NCURSU8 ! 

23V 

1 

nil 

237 

NP AC  1 -P ASSNOOE  « . NPAC ! 

240 

1 

nil 

244 

aOSE(PASSNODE>! 

241 

1 

1110 

273 

END! 

342 

1 

1110 

2V0 

BRANCHIN  gets  information  from  the  PASSTHRU  file  for  use  by  this  program 


BRANCHOUT  loads  the  PASSTHRU  file  with  appropriate  data  for  use  by  called 
programs. 


275 

1 

13:d 

1 

(MPOPRKEOURE  DEFINEASPECTS} 

27« 

1 

i3:o 

0 

BEGIN 

277 

1 

1311 

0 

ASPECTCllt-'PotmtiolltiM 

278 

1 

1311 

30 

ASPECT! 22 free ••••(' } 

277 

1 

1311 

55 

ASPECTt33:-'Product«' } 

280 

1 

13:1 

77 

ASPECTt4]:-'EnvironMnt'} 

281 

1 

i3:i 

100 

ASPECTC51i«‘Can«traintt'} 

282 

1 

i3:o 

133 

END} 

283 

1 

13:0 

140 

DEFINEASPECTS  assigns  names  to  each  aspect. 


-192 


284 

1 

1418 

1 

285 

1 

1410 

0 

284 

1 

1410 

0 

287 

1 

1411 

0 

288 

1 

1411 

11 

289 

1 

1411 

14 

290 

1 

1411 

14 

291 

1 

1412 

23 

292 

1 

1413 

23 

293 

1 

1413 

44 

294 

1 

1413 

109 

295 

1 

1413 

152 

294 

1 

1413 

154 

297 

1 

1413 

154 

298 

1 

1413 

170 

299 

1 

1412 

174 

300 

1 

1411 

174 

301 

1 

1412 

174 

302 

1 

1413 

192 

303 

1 

1414 

192 

304 

1 

1414 

200 

305 

1 

1413 

228 

304 

1 

1411 

238 

307 

1 

1411 

244 

308 

1 

1411 

242 

309 

1 

1411 

275 

310 

1 

1410 

284 

311 

1 

1410 

300 

KCIN 

RESET (COREFlLErCORENANE > I 
i:*IORESULTt 

IF  TOO  THEN 
•EGIN 

M1TELN<'C0REFILE  MES  NOT  EXIST') I 
URlTELNt'  ««t«FRTAL  EMtORMt*  Ml 
URITELN('  M)| 

ANYKET) 

IRANCHOUTt 

SETCHAINI'OREETINGMI 

EXIT(PROGRAH)| 

ENG 

ELSE 

FOR  i:«l  TO  300  M 
KGIN 

GET(COREFILE)t 

CORECn:>COREFILE*t 

END! 

GET<COREFILE)l 

CORELASTI-COREFILE*! 

NCOREL  AST  J -TRUNC  <  CORELAST  )  I 
CLOSE(COREFILE) 

ENOi 


READCOREFILE  reads  performance  item  index  file  from  disk  into  core. 


312 

1 

ISSV 

1 

(8«9*>PMX:E0URE  SORTCORCFILEl 

313 

1 

is:o 

0 

8CGIN 

314 

1 

is:i 

0 

FOR  i:>l  TO  300  DO 

31S 

1 

15:2 

14 

C0RE2C1]:-It 

314 

1 

is:i 

45 

i:>2i 

317 

1 

is:i 

49 

REPEAT 

318 

1 

1312 

49 

IF  COREtIKCORECl-l]  THEN 

319 

1 

15:3 

94 

8EGIN 

320 

1 

15:4 

94 

tehp:-corecii: 

321 

1 

13:4 

122 

C0RECli:«C0RE[l-l]| 

322 

1 

15:4 

144 

CORECl-li:-TEHPi 

323 

1 

15:4 

194 

TEHP2:>C0RE2Cnt 

324 

1 

15:4 

213 

C0RE2in:>C0RE2tl-l]| 

323 

1 

is:4 

247 

C0RE2CI-li:>TEHP31 

324 

1 

13:4 

248 

IF  I>2  THEN 

327 

1 

is:5 

273 

i:-i-i» 

328 

1 

15:3 

283 

END 

329 

1 

13:2 

283 

ELSE 

330 

1 

15:3 

283 

l:-Hli 

331 

1 

i5:i 

293 

UNTIL  17NC0RELASTI 

332 

1 

i3:o 

302 

end: 

333 

1 

i3:o 

320 

SORTCOKEFILE  constructs  the  permutation  vector  for  the  performance  items, 


334 

1 

1618 

1 

(8«P«)Pm)CEDUftE  OPENISSUE INDEX! 

33S 

1 

1610 

0 

8EeiN 

334 

1 

1610 

0 

<««!•«) 

337 

1 

1611 

0 

RESET ( ISSUE . ISSUENANE ) ( 

338 

1 

1611 

11 

(S«I4«) 

339 

1 

1611 

11 

IF  lORESULTOO  THEN 

340 

1 

1612 

17 

8EG1N 

34t 

1 

1613 

17 

URITELN< 'Picas*  bear  with  •*  while  I  creot*  the  Issue  Index  on  the  disk')! 

342 

1 

1613 

99 

RENRl TE ( 1 SSUE . ISSUENANE ) ! 

343 

1 

1613 

112 

FOR  I 1-1  TO  225  DO 

344 

1 

1614 

128 

ISSUE^.DATACnixO! 

343 

1 

1613 

167 

FOR  ll-l  TO  NISSUES  DO 

346 

1 

1614 

183 

8EGIN 

347 

1 

1615 

183 

FOR  Jl-1  TO  2  00 

348 

1 

1616 

197 

ISSUE''. NAMCIJll-'  '! 

349 

1 

1615 

268 

ISSUE''.  NUN  1 -II 

330 

1 

1615 

275 

SEEK<1SSUE,I>! 

351 

1 

1615 

286 

PUT< ISSUE)! 

352 

1 

1615 

294 

IF (EOF (ISSUE)) THEN 

353 

1 

1616 

304 

8EGIN 

354 

1 

1617 

304 

MR1TELN('0UT  OF  DISK  SPACE')! 

355 

1 

1617 

341 

NRITELNl'  UFATAL  ERROR**  ')! 

356 

1 

1617 

378 

ANYKEY! 

357 

1 

1617 

380 

8ETCHA1N( 'GREETING' ) ! 

358 

1 

1617 

394 

CXIT(PROGRAH)! 

359 

1 

1616 

398 

END! 

360 

1 

1614 

398 

END! 

361 

1 

1613 

408 

CLOSE! ISSUE. LOCK)! 

362 

1 

1613 

417 

OPENISSUEINOEX! 

363 

1 

1613 

419 

EXIKOPENISSUEINDEX)! 

364 

1 

1612 

423 

END 

363 

1 

1611 

423 

ELSE 

366 

1 

1612 

425 

BEGIN 

367 

1 

1613 

425 

NUISSUESl-NlSSlKStl! 

368 

1 

1613 

433 

REPEAT 

369 

1 

1614 

433 

NUlSSUESl-NUlSSUES-l! 

370 

1 

1614 

441 

SECK(ISSUe.NUISSUES)! 

371 

1 

1614 

452 

GETdSSUE) 

372 

1 

1613 

460 

UNTIL  <1SSUC''.NANEI11<>'  ')  OR  (NUISSUES- 1>! 

373 

1 

1613 

527 

IF  (NUISSUES-l)  AND  <COPY(ISSOE*.NAHEC13.1.5>-'  ')  THEN 

374 

1 

1614 

567 

NUISSUESl-O! 

375 

1 

1612 

571 

END! 

376 

1 

1610 

571 

END! 

377 

1 

1610 

598 

OPENISSUEINDEX  counts  how  many  measurement  purposes  were  specified  in 
previous  analyses.  If  ISSUE  file  docs  not  exist,  it  creates  one. 


378 

1 

17tD 

1 

(t«P«)PR0CEI>URE  0 

379 

1 

1710 

0 

BEGIN 

380 

1 

1711 

0 

SEEKdSSUE.I) 

381 

1 

1711 

11 

GETdSSUE); 

382 

1 

I7;i 

19 

URITELNd,'. 

383 

1 

17)0 

13S 

ENO; 

384 

1 

1710 

148 

'.ISSUE*.NMtE[13.CHR(13)>' 


'  ,ISSUE''.NAHEC2]tCHR(  13)  > ; 


DISPLAYNAME  displays  the  name  of  one  measurement  purpose. 


3B5  1  18 :D  1  (*«P*>PR0CEDU8E  DISPLAYISSUESI 

386  1  18:0  0  8E6IN 

387  1  18:i  0  PAGEiOUTPUT)} 

388  1  18: 1  10  IF  NUISSUES«0  THEN 

389  1  18:2  17  BEGIN 

390  1  18:3  17  lfftlTELN('Curr«ntly>  th»r«  ort  no  oonsurootnt  purpoM*  in  tho  APH  for  thi 

•ysito  ond  •ubtytion'll 

391  1  18:2  140  END 

392  1  18: 1  140  asE 

393  1  18:2  148  BEGIN 

394  1  1B:3  148  WRITELN('Th*  followinp  OMCurMont  purponoc  or*  currently  included  ')f 

395  1  18:3  238  FOR  i:-l  TO  NU1SS(£S  GO 

390  1  18:4  254  BEGIN 

397  1  18:S  254  DlSPLAYNAHEl 

398  1  18:5  250  IF  <I  NOD  0«0)  THEN 

399  1  18:0  205  BEGIN 

400  1  18:7  205  anykey: 

401  1  18:7  207  PAGE(OUTPUT>: 

402  1  18:0  277  END! 

403  1  18:4  277  ENOt 

404  1  18:2  287  END! 

405  1  is:o  287  end: 

400  1  18:0  300 


DISPLA YISSUES  displays  names  of  all  measurement  purposes, 


407 

1 

19iD 

1 

(••P«)PROCEDURE  ER4SEAFASTlSSUE(lli:iNTEGER> t 

40B 

1 

i9:o 

0 

BEGINt 

409 

1 

1911 

0 

RESET(FASTISSUE.N4HEF4STISSUE)i 

410 

1 

19: 1 

13 

IF  lORESUtT*  0  THEN 

411 

1 

19:2 

19 

BEGIN 

412 

1 

19:3 

19 

8EEK(FRSriSSUE>lII); 

413 

1 

19:3 

28 

FOR  J:>1  to  300  DO 

414 

1 

19:4 

44 

FAST I SSUE *. PRINT IT CJ] : ■FALSE i 

413 

1 

19:3 

72 

PUT(FASriSSUE>l 

414 

1 

19:3 

80 

CLOSE(FASTISSUE)} 

417 

1 

19:2 

89 

end: 

418 

1 

i9:o 

89 

end; 

419 

1 

i9:o 

104 

ERASEAFASTISSUE:  FASTISSUE  must  be  erased  for  any  measurement  purpose 
being  modified.  ERASEAFASTISSUE  does  this  erasure. 


420 

1 

2o:d 

1 

(•tPtlfMCEDURC  A0DISSUE<Al!INTE6ER)t 

421 

1 

20t0 

0 

lEOIN 

422 

1 

2o:i 

0 

SEEK<ISSUE,Al)i 

423 

1 

2o:i 

9 

GET( ISSUE)! 

424 

1 

2o:i 

17 

MflITELN<'Plt«««  dMcrtO*  ih«  n«w  MAMrcMnt  purpose  in  2  . 

42S 

1 

2o:i 

104 

FOR  i:*l  TO  2  00 

424 

1 

20:2 

118 

OEOIN 

427 

1 

20:3 

118 

HRITELNt'PUoso  typo  line  OM.'!')! 

428 

1 

20:3 

178 

REPEAT 

429 

1 

2014 

178 

INLINE! 

430 

1 

20:4 

180 

IF  LENGTH  (LINER»48.  THEN 

431 

1 

20:s 

189 

IIRITELH< 'Line  contains  over  48  chorocierst  pleose 

432 

1 

20:3 

254 

UNTIL  LENGTH(LINER)<>48! 

433 

1 

20:3 

245 

ISSUE*  .NANEC 1 3  .* -LINER! 

434 

1 

20:2 

285 

END! 

435 

1 

20:1 

295 

SEEKdSSUEtAD! 

434 

1 

20:1 

304 

PUT< ISSUE)! 

437 

1 

20:0 

312 

END! 

438 

1 

2010 

330 

66*ch«rocttr  lintt'Ul 


ADDISSUE  adds  a  measurement  purpose. 


439 

1 

21  :d 

1 

(••PtlPROCEDURE  REHOVEISSUE<KIltNTEGER>l 

440 

1 

21  :o 

0 

8E6IN 

441 

1 

2111 

0 

SEEKlISSUEtRI)} 

443 

1 

2111 

9 

eETdSSUEi; 

443 

1 

2111 

17 

FOR  Ji-1  TO  2  DO 

444 

1 

2112 

31 

X8SUE*.NAHECJ]!«‘' 

44S 

1 

2111 

102 

FOR  Jl-l  TO  235  DO 

444 

1 

2112 

118 

ISSUE*. DATRCJll-Ol 

447 

1 

2111 

157 

SEEK  (ISSU£,RI)t 

448 

1 

2111 

144 

FUTCISSUEII 

449 

1 

2111 

174 

IF  R1*NU1SSUES  THEN 

450 

1 

2112 

181 

NUISSUES : >NU1SSUES-1 1 

451 

1 

2111 

189 

ERASERFASTlSSUElRlli 

452 

1 

2110 

192 

END! 

453 

1 

21  to 

208 

REMOVEISSUE  removes  a  measurement  purpose  from  the  measurement  purpose 
list. 


454 

1 

22tD 

1 

(84Pt)Pm)CE0URE  ALTERISSUES! 

455 

1 

22:0 

0 

IE6IN 

454 

1 

22:1 

0 

PlSPLAYISSUESt 

457 

1 

22:1 

2 

eOTOXV(0,14)! 

458 

1 

22:1 

7 

WITE(CHR(ll>)i 

45» 

1 

22:1 

17 

MlTE('You  My  ptyfora  ony  of  th«  folloMing  proc»durc»!'iChr(13)i 

440 

1 

22:1 

87 

'  1.  Anolyzt  «  MOturMant  purpoM  2>  Specify  0  nee  MasureMnt  purposa'iChr(13>f 

441 

1 

22:1 

181 

'  3>  Rmov*  0  MosurcMnt  purpoM  4<  Replace  0  aeaeureeent  purpo«e'fChr(13)r 

442 

1 

22:1 

271 

'  S<  Pock  Mos  purpocec  efficiently  4.  Select  0  different  anolytic  proc.'fChr(13)i 

443 

1 

22:1 

345 

'Please  select  one!  ')! 

444 

1 

22:1 

394 

REPEAT 

445 

1 

22:2 

394 

KEYNI 

444 

1 

22:2 

398 

IF  (Kl)  OR  (1>4>  THEN 

447 

1 

22:3 

411 

URITELN( 'Please  type  an  integer  4et«#een  1  end  5')! 

448 

1 

22:1 

449 

UNTIL  (I>-1)  AND  (1<«4>; 

449 

1 

22:1 

482 

CASE  1  OF 

470 

1 

22:1 

487 

1!  EXANINEISSUESi 

471 

1 

22:1 

491 

2:  BEGIN 

472 

1 

22:3 

491 

G0T0XY(0.14)S 

473 

1 

22:3 

494 

MRITClCHRdl))! 

474 

1 

22:3 

504 

IF  NUISSUCS>-N]SSUES  THEN 

475 

1 

22:4 

515 

BEGIN 

474 

1 

22:5 

515 

HRITELNi' ISSUE  INDEX  IS  FULL— NO  ADDITIONAL  ISSUES  CAN  BE  ADDED'!! 

477 

1 

22:5 

589 

ANYKEY! 

478 

1 

22:4 

591 

END 

479 

1 

22:3 

591 

ELSE 

480 

1 

22:4 

593 

BEGIN 

481 

1 

22:5 

593 

NUISSUESl-NUlSSUEStl ! 

482 

1 

22:5 

401 

ADOISSUE(NUISSUES)! 

483 

1 

2214 

404 

END! 

484 

1 

22:2 

404 

END! 

485 

1 

22:1 

408 

3i  BEGIN 

484 

1 

22:3 

408 

WRITE! 'Uhich  cme  (type  0  when  done>T  ')! 

487 

1 

22:3 

450 

KETN! 

488 

1 

22:3 

452 

IF  100  THEN 

489 

1 

22:4 

459 

RCHOVEISSUEd)! 

490 

1 

2212 

444 

END! 

491 

1 

22:1 

444 

43  BEGIN 

492 

1 

22:3 

444 

WRITE! 'Which  one  (type  0  when  donelT'!! 

493 

1 

22:3 

707 

KEYN! 

ALTERISSUES  presents  menu  of  options  showing  what  analyst  can  do  with  measure¬ 
ment  purposes. 


494 

1 

2213 

709 

495 

1 

32:4 

714 

494 

1 

23:5 

714 

497 

1 

22:s 

721 

49B 

1 

32:5 

731 

499 

1 

22:s 

798 

500 

1 

23:4 

805 

SOI 

1 

2217 

805 

503 

1 

22:4 

810 

503 

1 

22:5 

810 

504 

1 

22:4 

812 

505 

1 

22:7 

813 

504 

1 

22:7 

817 

507 

1 

22:7 

825 

SOB 

1 

22:4 

830 

509 

1 

2214 

830 

SIO 

1 

22:2 

830 

511 

1 

22:1 

832 

512 

1 

22:1 

834 

513 

1 

22:3 

834 

514 

1 

22:3 

838 

515 

1 

22:3 

852 

514 

1 

22:2 

854 

517 

1 

22:1 

858 

SIS 

1 

22:1 

878 

519 

1 

22:0 

880 

520 

1 

32:0 

898 

IF  lOO  THEN 
BEGIN 

GOTOXY(O.U>I 

HRirE(CHR<U))i 

PftEPKEY(73t'lt  tki*  MYcly  on  inprovooont  in  tho  doscriptorT  Mi 
IF  ANS-'V'  THEN 
BEGIN 

ADDISSUEtDI 

END 

asE 

BEGIN 

REHOUEISSUEiDt 
NUISSU£S:-NUISSUES41 t 
ADOISSUEtDt 

end; 

end; 

end; 

S:  CONPACTISSUES; 

«;  KGIN 

bpanchout; 

SETCHAIN( 'GREETING'); 

EXIT (PROGRAM); 

end; 

end; 

ALTERISSUES; 

end; 


I 


521  1  23:0  1  <MP»)PROCEOUIiE  CETlNDEXi 

522  1  23:0  0  BEGIN 

523  1  23!1  0  PA6E(0UTPUT>i 

524  1  23>1  10  NRlTELNC'PlMtt  bt  potitiit>.«'(Chr<13>t'  I  M  prcp«rin«  tb«  coaputcr  for  )ro«'> 

525  1  23:1  100  BEGIN 

526  1  23:2  109  SEEK(1SSUE|NCUR1SSI«>I 

527  1  2312  120  GETdSSUE)! 

52B  1  23:2  128  FOR  It-1  TO  225  BO 

529  1  23:3  144  BEGIN 

530  1  2314  144  ISSUEBATACllI-lSGUE^.BATACIll 

531  1  23:3  186  END! 

532  1  23:1  196  ENBt 

533  1  23:0  196  END) 

534  1  2310  210 


GETINDEX  places  reference  to  performance  item  into  array  ISSUEDATA  or  the 
measurement  purpose  currently  being  processed. 


535 

1 

24:d 

1 

(BtPOPROCEDUBE  OPENDATAFILE; 

534 

1 

24:0 

0 

BEGIN 

537 

1 

24:o 

0 

«9X-B) 

53B 

1 

24: 1 

0 

RESET ( DAT ANODE • DAT ANANE ) 1 

539 

1 

24:i 

10 

540 

1 

24: 1 

10 

i:>ioresult: 

541 

1 

24: 1 

15 

IF  100  THEN 

542 

1 

24:2 

22 

BEGIN 

543 

1 

24:3 

22 

WtlTELN( 'DATABASE  HOST  BE  CREATED  BEFORE  ISSUES  ARE  LINKED  TO  DATABASE'); 

544 

1 

24:3 

103 

anykey; 

545 

1 

24:3 

105 

branchout; 

544 

1 

24:3 

107 

SETCHAIN( 'GREETING'); 

547 

1 

24:3 

121 

EXIT(PROGRAN); 

54B 

1 

24:2 

125 

end; 

549 

1 

24:0 

125 

end; 

550 

1 

24:0 

13B 

OPENDATAFILE  verifies  the  presence  of  performance  items, 
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1 

3518 

1 

(»9P«)PMCE0WE  TOrSCREENl 

552 

1 

2510 

0 

8E6IN 

553 

1 

2511 

0 

60T0XY(0t4)) 

554 

1 

2511 

5 

imjTE(CHft(ll») 

555 

1 

25:i 

15 

nsckeen:«3i 

554 

1 

3511 

19 

m:>iength(CURSys)} 

557 

1 

2s:i 

27 

IF  H>14  THEN 

558 

1 

2S:2 

34 

n:-i4: 

559 

1 

2s:i 

38 

LlNE:>C0PY(CU8SYS.l.N>t 

540 

1 

2s:i 

57 

WtlTE('t',LlNE.'  SystMk')} 

541 

1 

2s:i 

99 

6OT0XY(24,4): 

542 

1 

25:i 

104 

N:-LENaTH(CU8SPH 

543 

1 

25:i 

112 

IF  N>14  THEN 

544 

1 

2S:2 

119 

N!-14{ 

545 

1 

2511 

123 

line:>copy(cursp«i,m)i 

544 

1 

2s:i 

142 

imiTE<'«M]NE)) 

547 

1 

25:i 

144 

G0T0XY< 44,4)1 

548 

1 

2s:i 

149 

H:«LENGTH(CUftSUB>l 

549 

1 

2s:i 

177 

IF  H>14  THEN 

570 

1 

25:2 

184 

H:«14i 

571 

1 

2s:i 

188 

line:-copy<cursub.i,n>i 

572 

1 

3511 

207 

WtITELN<'t'.LlNE)i 

573 

1 

25:i 

237 

BOTOXYC 42,4)1 

574 

1 

2S!1 

242 

URITCLN('«',P4C)1 

575 

1 

2s:i 

272 

n:-len6th<xobjective) 1 

574 

1 

25:1 

280 

IF  n>47  then  hi >471 

577 

1 

2s:i 

291 

LINE!«C0PY<X0BJCCT1VE,1,H)1 

578 

1 

25:i 

310 

IF  NSCREEN>1  THEN 

579 

1 

2S:2 

317 

HRITELN!  'ObjKtiv*! '  ,NOBJECTIVE. '  31 '  ,LINE)  1 

580 

1 

2s:i 

385 

M:«LEN6TH<XFUNPU8)1 

581 

1 

2S:i 

393 

IF  H>47  THEN  n:«471 

582 

1 

2S:i 

404 

line:>copy<xfunpur,i,n)1 

583 

1 

25!  1 

423 

IF  NSCFiEEN>2  then 

584 

1 

2S!2 

430 

MRlTELNC'Fctl  PrpftCSNFUNPURi'll'.LINE)! 

585 

1 

25!  1 

498 

URITELNl'  Ml 

584 

1 

2s:o 

514 

ENBt 

587 

1 

2StO 

528 

TOPSCREEN  produces  the  header  material  on  the  display  screen 


M2 

1 

318 

1 

<MP*)PmiCEMIRE  COHPACTISSUESI 

M3 

1 

3:0 

0 

8EeiN 

604 

1 

3:1 

0 

FM  J:-1  to  NlSSUES  DO 

MS 

1 

312 

14 

EIMSE4FAST1S8UE(J)( 

606 

1 

3:1 

31 

n:-0} 

607 

1 

3!1 

35 

i:«o; 

600 

1 

3:1 

39 

REPEAT 

609 

1 

3t2 

39 

i:-i4n 

410 

1 

3:2 

47 

REPEAT 

411 

1 

3:3 

47 

412 

1 

3:3 

57 

SEEK( ISSUE. J); 

413 

1 

3:3 

48 

GET< ISSUE)! 

414 

1 

3:3 

74 

IF  (C0PV(ISSUE*.NAHEC11,1.5»'  '>  THEN 

415 

1 

3:4 

no 

H:>H4n 

414 

1 

3:2 

118 

UNTIL  (COPYdSSUE^.NAHEtll. 1,5)0'  ')  OR  (J>NUISSUES)t 

417 

1 

3:2 

140 

IF  J<-NU1SSUES  THEN 

418 

1 

3:3 

149 

BEGIN 

418 

1 

3:4 

149 

j:«hh: 

420 

1 

3!4 

179 

SEEKdSSUE.Dt 

421 

1 

3t4 

190 

PUTdSSUE)! 

422 

1 

3:3 

198 

END! 

423 

1 

3:1 

198 

UNTIL  J>>NUISSUESt 

424 

1 

3:1 

207 

i:«int 

425 

1 

3:1 

215 

FOR  Ki>I  TO  NlSSUES  00 

424 

1 

3:2 

233 

RENOVEISSUE<K)! 

427 

1 

3:1 

248 

IF  N>0  THEN  NUISSUESi«NUISSUES-H41S 

428 

1 

3:0 

247 

end; 

429 

1 

3:0 

288 

429 

1 

3:0 

288 

««I  •S:NEASPURP2.TEXT*) 

430 

1 

3:0 

288 

COMPACTISSUES  packs  measurement  purpose  references  more  efficiently, 


1  ««P»)PliOCEOURE  refissue; 

0  BEGIN 

0  j:*o; 

4  REPEAT 

4 

12  UNTIL(ISSUE0ATACJ1>0)  OR  (J>224); 

SO  IF  <J>224)  AND  (ISSUEDATACJIOO)  THEN 

S8  BEGIN 

Se  HRITELNC ‘SORRY— BUT  YOU  ALREADY  HAVE  224  REFERENCES  FOR  THIS  NEASUREHENT 

PURPOSE' fCH  R(13)> 

B1  '  SO  YOU  CAN  NOT  ADO  ANOTHER  ONE!! I'>t 

34  anykey; 

38  EXIT(REFISSUC) 

12  END 

42  ELSE 

*4  BEGIN 

44  ISSUCDATACJ3:<CORECI3: 

B4  FLA6CIl:>TRUEt 

01  end: 

01  end; 


REFISSUE  adds  a  new  performance  item  reference  to  the  measurement  purpose 
index. 


ASl 

1 

28tD 

1 

(stPttrmcEWRC  uNRcrissuEt 

AS3 

1 

28:o 

0 

•COIN 

A53 

1 

2e:i 

0 

K:*ot 

M4 

1 

28: 1 

4 

REPEAT 

ASS 

1 

28:2 

4 

Kt«K41I 

ASA 

1 

2Bri 

12 

UNTIL  (K>224)  OR  (ISSUEDATACKI-CORECIl) I 

AS7 

t 

28: 1 

A3 

If  K>>224  THEN 

Asa 

1 

28:2 

72 

•COIN 

AS9 

1 

28:3 

72 

NRITELNI'ERROR-'fLAG  SAYS  REFERENCED.  ISSUEDATA  SAYS  UNREFERENCED'); 

AAO 

1 

28:3 

148 

CXITIUNREFISSUC); 

AAl 

1 

28:2 

1S2 

CNDI 

AA2 

1 

28:i 

1S2 

j:-k-ii 

AA3 

1 

28:i 

lAO 

REPEAT 

AA4 

1 

28:2 

lAO 

j:-j9i; 

AAS 

t 

28:2 

1A8 

ISSUEDATAC  J1 ■  ISSUEDATAC  Jtl  3 1 

AAA 

1 

2e:i 

210 

UNTIL  <ISSUCDATACJ1«0>  OR  0224); 

AA7 

1 

2e:i 

248 

lSSUeDATAC22Si:-0; 

AAS 

1 

28:  t 

27S 

flagcii:>false; 

AA9 

1 

28:0 

292 

end; 

A70 

1 

28:o 

308 

UNREFISSUE  removes  a  reference  to  a  performance  item  from  a  measurement 
purpose  index. 


474 

1 

3018 

1 

(t*P*)P«>CEIIURE  SETUPFLAG! 

477 

1 

3o:o 

0 

8EGIN 

478 

1 

30  .*1 

0 

FOR  K:>1  to  300  00 

478 

1 

30:2 

14 

FLAGCK]:>FALSEi 

480 

1 

30!  1 

43 

IF  ISSUEDATAtnOO  THEN 

481 

1 

30:2 

71 

BEGIN 

482 

1 

30:3 

71 

URITELN('PlMSt  b*  chr(13>t 

483 

1 

30:3 

113 

484 

1 

30:3 

175 

FOR  K!«l  TO  225  DO 

48S 

1 

30:4 

191 

BEGIN 

484 

1 

30!5 

191 

IF  ISSUCBATACKJOO  THEN 

487 

1 

30:4 

221 

BEGIN 

488 

1 

30:7 

221 

N0DE:-0i 

489 

1 

30:7 

225 

REPEAT 

490 

1 

30:8 

225 

node:-nooe41| 

491 

1 

30:8 

233 

IF  ISSUEDATACK3-CORECNODE1  THEN 

492 

1 

30:9 

274 

FLAGCNaOE3:«TRUE; 

493 

1 

30:7 

293 

UNTIL  <N0DE«300>t 

494 

1 

30:4 

302 

end; 

49S 

1 

30:4 

302 

end; 

494 

1 

30:2 

312 

end; 

497 

1 

30:0 

312 

end; 

498 

1 

30:0 

332 

SETUPFLAG  sets  up  a  flag  for  each  performance  item  which  belongs  to  a 
measurement  purpose. 


A99 

1 

31  :d 

1 

700 

1 

3i:o 

0 

701 

1 

31S1 

0 

702 

1 

3i:i 

4 

703 

1 

31 S2 

4 

704 

1 

31)2 

9 

705 

1 

31)2 

89 

70d 

1 

31)2 

91 

707 

1 

31:2 

97 

708 

1 

31:3 

112 

709 

1 

3i:i 

191 

710 

1 

3i:i 

206 

711 

1 

31:2 

213 

712 

1 

3i:i 

217 

713 

1 

31:1 

222 

714 

1 

31:1 

224 

715 

1 

31:1 

226 

716 

1 

31:1 

236 

717 

1 

31:1 

316 

718 

1 

31:1 

322 

719 

1 

31:1 

324 

720 

1 

31St 

329 

721 

1 

31S1 

376 

722 

1 

3i:i 

459 

723 

1 

3i:o 

471 

724 

1 

31:0 

486 

KEGIN 

ok:«false; 

REPEAT 

60T0XY<0.U)t 

URITE(CHR(ll)f 'Which  one  would  you  like  to  onolyze(type  0  to  reconsider)?'); 
KEYNi 

NCUftISSUE!«i; 

IF  (I>NUISSUES)  OR  (KO)  THEN 

WRITELN< 'Please  type  an  integer  between  1  end  '»NUlSSUESf 'S'); 

UNTIL  <I<>NUISSUES)  AND  (I>-0); 

IF  I>0  THEN 
EXIT(EXAHINEISSUES); 

ERASEAFASTISSUEd); 

OETINDEX; 

setupflag; 

PAGE (OUTPUT); 

WRITELN<'You  have  chosen  to  analyze  oeosureoent  purpose)  'tNCURISSUE); 

i:>ncurissue; 

displaynahe; 

G0T0XY(0>3); 

URITELN(CHR(26)t'3Black  on  idtite' ,chr(26) . 

'2  perforoonce  iteos  ore  associated  with  the  oeosureoent  purpose' >; 
RESET ( DAT ANODE . DAT ANAHE ) t 

end; 


GOEXAMINE  determines  which  measurement  purpose  the  analyst  wishes  to  analyze. 


725 

1 

32:d 

1 

(OOPOiPROCEWME  REVEftSElSSUES; 

726 

1 

32:o 

0 

BE6IN 

727 

1 

32: 1 

0 

IF  FLAGCIl'TRUE 

72S 

1 

32: 1 

16 

THEN  UNHEF ISSUE 

729 

1 

32: 1 

21 

ELSE  REFISSUE: 

730 

1 

32:i 

27 

count:-o: 

731 

1 

32:0 

31 

end: 

732 

1 

32:0 

44 

REVERSEISSUES~if  analyst  wishes  to  add  a  performance  item  to  the  measurement 
purpose,  reverse  issues  calls  REFISSUE.  If  analyst  wishes  to  remove  a  performance 
item  from  the  measurement  purpose,  REVERSEISSUES  calls  UN  REFISSUE, 


733 

1 

33;D 

1 

<«<P«)rROCE0URE  ENDPAGE) 

734 

1 

33:o 

0 

BEGIN 

735 

1 

33: 1 

0 

i:*o: 

734 

1 

3311 

4 

G0T0XY(0,19>) 

737 

1 

33: 1 

9 

IMtITE(CHi«ll>): 

738 

1 

33: 1 

19 

PREPKEY(94t 'Chonq*  ossnt  b«tu«*A  MocurMvnt  purpOM  ond 

a  pvrforBoncc  itM?')) 

739 

1 

33: 1 

95 

IF  0RD(ANS>«27  THEN 

740 

1 

33:2 

102 

BEGIN 

741 

1 

33:3 

102 

CLOSE (OAT ANODE)) 

742 

1 

33:3 

no 

SAVEINDEX) 

743 

1 

33:3 

112 

EXITCEXAMINEISSUES)) 

744 

1 

33:2 

114 

END) 

745 

1 

33: 1 

114 

IF  ANS>'Y'  THEN 

744 

1 

33:2 

123 

BEGIN 

747 

1 

33:3 

123 

GOTOxr(0,19)) 

748 

1 

33:3 

128 

WITE(CHIt(ll)>) 

749 

1 

33:3 

138 

MITEC'Uhich  on*  <typ*  0  if  nont)  999  if  olDT  ')) 

750 

1 

33:3 

190 

KEYN) 

751 

1 

33:3 

192 

i:-I460PAGE-l) 

752 

1 

33:3 

204 

IF  <I>0)  AND  <I<300)THEN 

753 

1 

33:4 

219 

IF  (CHARACTERIST1C*TRUE)  THEN 

754 

1 

33:5 

227 

REVERSEIS8UES 

755 

1 

33:4 

227 

ELSE 

754 

1 

33:s 

231 

BEGIN 

757 

1 

33:4 

231 

G0T0XY(0f21)) 

758 

1 

33:4 

234 

URITE(CHR(11>)) 

759 

1 

33:4 

244 

MITELN( 'ERROR— PERFORHANCE  ITEH  M.'IS  NOT 

A  CHARACTERISTIC!')) 

740 

1 

33:s 

338 

END) 

741 

1 

33:3 

338 

N:-9994C0PA0E-1) 

742 

1 

33:3 

350 

IF  I-N  THEN 

743 

1 

33:4 

359 

FOR  i:«G0PAGE  TO  NODE  DO 

744 

1 

33:s 

377 

IFiCORECn-CORECI]  DIV  100  t  lOOOO)  THEN 

745 

1 

33:4 

447 

REVERSEISSUES) 

744 

1 

33:3 

459 

nooe:-gopaoe-i) 

747 

1 

33:2 

447 

END 

748 

1 

33:i 

447 

asE 

749 

1 

33:2 

449 

OOPAGEI-NOOEtl) 

770 

1 

33: 1 

477 

6OT0XY<0«8>) 

771 

1 

33: 1 

482 

URITE(CHR<11))) 

772 

1 

33:0 

492 

END) 

773 

1 

33:0 

308 

ENDPAGE  displays  the  "do  you  want  to  change  association"  message  and  then 
it  processes  the  response. 
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1 

34:0 

1 

(OmiPROCEDURE  CHANeETOPSCREENl 

775 

1 

34  to 

0 

8E61N 

77* 

1 

34:i 

0 

IF  COKCNODEl-0  THEN 

777 

1 

34:2 

30 

EX1T<CNAN6ET0PSCREEN> } 

778 

1 

34tl 

34 

SEEK  <  IMTANODE  t  COIiE2CNODEl )  1 

779 

1 

34tl 

57 

GET(DATMIOIIE)l 

780 

1 

34il 

*4 

IF  CORECNODEl  DIV  10000  •  10000  >  CORCCNOOEI  THEN 

781 

1 

34:2 

129 

8E6IN 

782 

1 

34:3 

129 

lt-TRUNC(CORECNODE]  DIV  1000000)1 

783 

1 

34!3 

183 

pm::-*spectci3: 

784 

1 

34:3 

201 

HPACt-Ii 

785 

1 

34:3 

207 

xo8jective:-o*tanode*.taxa: 

78* 

1 

3413 

215 

NOS JECTI VE  t -DAT ANODE* .NTAXAI23 1 

787 

1 

34:2 

228 

END 

788 

1 

34:1 

228 

asE 

789 

1 

34:2 

230 

8E61N 

790 

1 

34:3 

230 

XFUNPU8 : -DAT ANODE* . TAXA t 

791 

1 

34:3 

238 

NFUNPUR : -DAT ANODE*. NTAXAC3] t 

792 

1 

34:2 

251 

end: 

793 

1 

34tl 

251 

IF(NEXTCHAItACTE8ISTlC-TRUE>  THEN 

794 

1 

34:2 

259 

0E6IN 

795 

1 

3413 

259 

TOPSCREENt 

79* 

1 

34:3 

2*1 

COUNT :«o; 

797 

1 

3413 

2*5 

60T0Xr<0.8>; 

798 

1 

34:3 

270 

HRITE<CHR(ll)>t 

799 

1 

34:2 

280 

end: 

800 

1 

3410 

280 

end; 

801 

1 

34t0 

292 

ClIANGETOPSCREEN  changes  contents  of  the  header  printed  at  the  top  of  each 
page. 
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1 
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1 

(»«r«)PM)CC8URE  0NEPERFnEH81Sn.AYX 

803 
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3s:o 

0 

8EGIN 

804 

1 

3s:i 

0 

SEEK(8ATAN0D£.C0RE2IN08E3)| 

80S 

1 

3s:i 

23 

6ET(IMTMI0DE>> 

804 

1 

3s:i 

30 

KX>DATAN08E*.NTAXA[H}: 

807 

1 

35X1 

45 

LLENGTHi-72( 

808 

1 

35X1 

49 

linex-batam>8E*.taxa; 

809 

1 

35X1 

57 

IF  KOO  THEN 

810 

1 

35X2 

44 

GEGIN 

811 

1 

35X3 

44 

INVERSE X ■2; 

812 

1 

35X3 

48 

NNX>0; 

813 

1 

35X3 

72 

CASE  N  OF 

814 

1 

35X3 

77 

IXTEHFLSX-IOOOOOOX 

813 

1 

35X3 

114 

2ITEHPLSi«10000; 

814 

1 

35X3 

133 

3XTENFLSX-100I 

817 

1 

35X3 

ISO 

4iTEHPLSX«lt 

818 

1 

35X3 

147 

ENDi 

819 

1 

35X3 

182 

TEHf>L4!-C0RECN00E}  DIV  TEHPLS) 

820 

1 

35X3 

220 

REPEAT 

821 

1 

35X4 

220 

NNX>NN4i; 

822 

1 

35X3 

228 

UNTIL  <NN-22S)  or  (ISSUEDATRINNI  OIV  TEHPLS  ■  TEHPL4)i 

823 

1 

35X3 

277 

IF  NN<223  THEN 

824 

1 

35X4 

284 

INVERSE  X -3 1 

82S 

1 

35X3 

290 

NRITEt'  ',CHR<24)>INVERSE,K.'.  '>1 

824 

1 

35X3 

352 

INDENT  X  >4  i 

827 

1 

35X3 

354 

shoualine: 

828 

1 

35X3 

358 

IIRITELN(CHR(24)t'2'>I 

629 

1 

35X2 

384 

end; 

830 

1 

35X0 

384 

end: 

831 

1 

35X0 
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ONEPERFITEMDISPLAY  displays  one  performance  item  in  the  body  of  the  display 
used  to  select  which  performance  item  ought  to  be  processed  next. 


032  1 

033  1 


047  1 

048  1 


0S9  1 


(tmiPKOCEDURE  SHOWPERFlTCHSt 
0EG1N 
OK:>FM.SEt 
•ISKOUNTiaOt 

IF  N>2  THEN  TEHPLlt-lOOOGOOi 
IF  N-3  THEN  TEMPI 3: -10000 I 
IF  N-3  THEN  TEHPLl 1-100001 
IF  N-3  THEN  TENPL3 1-1001 
TEHPL21-TENP  DIV  TEHPLll 
FOR  NODE  1-1  TO  NCORELMST  DO 
DEGIN 

IF  <TENPL2-C0RECN0DE1  DIV  TEHPLll  AND 
(COREtNODEI  DIV  TEHPL3  0  TEHPL3  -  CORECNODEJ)  THEN 
DEGIN 
OKl-TRUEl 

ONEPERFITENDISPLATl 
DISPCOUNT 1 -DISPC0UNT41 1 
ENDl 

IF  IDISPCOUNT  DIV  IS  8  1S-DISPC0UNT>  AND  (DISPCOUNTOO)  THEN 
DECIN 

DISPCOUNT 1-01 

ANVKEri 

60T0XV<0.2)1 

HR1TC<CHR(11))1 

ENDl 

ENDl 

IF  OR-FALSE  THEN 
URITELNI'  ...oonv'll 
ENDl 
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(OmiPftOCEDURE  SPECIFYSTMtTt 
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0 

BEGIN 

M4 

1 

3711 

0 

REPEAT 

MS 

1 

3712 

0 

60T0XY(0.4>i 

8M 

1 

3712 

5 

imiTE(CHR(ll))l 

867 

1 

3712 

IS 

NRITELNl'Thc  following  ospoctc  oro  port  of  iho  APHl')} 

868 

1 

3712 

77 

FOR  Ni«l  TO  5  00 

M9 

1 

3713 

91 

INVERSEACNll«2i 

870 

1 

3712 

116 

FOR  N0DE1>1  TO  300  DO 

871 

1 

3713 

132 

IF  FLAGCNOOEl-TRUE  THEN 

872 

1 

3714 

153 

BEGIN 

873 

1 

3715 

153 

N1*TRUNC<C0RECN0BE1  DIV  1000000)1 

874 

1 

3715 

207 

IF  N>0  THEN 

87S 

1 

3716 

214 

1NVERSEACN]1«31 

876 

1 

3714 

229 

END! 

877 

1 

3712 

239 

FOR  Nl-1  TO  5  BO 

878 

1 

3713 

253 

HRITELNl'  SCHR(26>,INVERSEACN],N>'.  '.ASPECTtN],CHR(26).'2'>| 

879 

1 

3712 

382 

HRITEl'PltoM  Mloct  onol  Ml 

880 

1 

3712 

413 

KEYNl 

881 

1 

3712 

415 

PACKASPECTCni 

882 

1 

3712 

433 

NPACl-11 

883 

1 

3712 

439 

TEHPL4!-I1 

884 

1 

3712 

456 

TEMP 1 «TEHPL4« 1000000 1 

885 

1 

3712 

SOI 

e0T0XY(0,4)i 

886 

1 

3712 

506 

HR1TE(CHR(11>>1 

887 

1 

3712 

516 

Hl-2} 

888 

1 

3712 

520 

MlTELNl'Tho  following  Dbjociivot  oro  ovoiloblo  for  tho  otpoct  Mltciid 

889 

1 

3712 

604 

SHOWPERFITEHSl 

890 

1 

3712 

606 

891 

1 

3712 

637 

KEYNl 

892 

1 

3712 

639 

N0BJECTIVE!«11 

893 

1 

3712 

645 

TENPL41«11 

894 

1 

3712 

662 

TEHP1-TEHP4TENPL4«100001 

89S 

1 

3712 

699 

FOR  I1>1  TO  300  BO 

896 

1 

3713 

715 

IF  TEHP-CORECll  THEN 

897 

1 

3714 

746 

BEGIN 

898 

1 

3715 

746 

SEEK(BATANOOE,CORE2CNODE3> 1 

899 

1 

3715 

769 

GET < OAT ANODE )1 

900 

1 

3715 

776 

XOB JECT I VE 1 ■DATANOOE* . TAXA 1 

901 

1 

3714 

784 

ENOl 

SPECIFYSTART  allows  analyst  to  select  where  he/she  wants  to  start  analyzing 
measurement  purpose  links  to  performance  items. 


V02 

1 

3712 

794 

60T0XY(0f4)i 

f03 

1 

3712 

799 

NRlTE<CHR(ll>)t 

f04 

1 

3712 

809 

Nl-3t 

90S 

1 

3712 

813 

MRZTELN('Th*  following  FuActlonol  PurpMts  or*  ovoilobl*  for  tli*  e8j*ctiv* 
MlccUdl  'll 

900 

1 

3712 

909 

SHOUPERFITEHSt 

907 

1 

3712 

911 

908 

1 

3712 

942 

KEYNi 

909 

1 

3712 

944 

YEnPL4:-lt 

910 

1 

3712 

961 

TEMP : ■TEMP4TEHPL4t 100 1 

911 

t 

3712 

996 

FOK  i:-l  TO  300  00 

912 

1 

3713 

1012 

IF  CORECI]>TEMP  THEN 

913 

1 

3714 

1043 

OEGIN 

914 

1 

37:s 

1043 

node:>i-ii 

915 

1 

3713 

1051 

OOPAGEt-NODEfU 

916 

1 

3714 

1059 

end; 

917 

1 

3712 

1069 

IF  NOOE-0  THEN 

918 

1 

37:3 

1076 

IMITELN<'P*rforMne*  iioo  0  'tt*op>'  do*c  net  •xicil')! 

919 

1 

3711 

1163 

UNTIL  NODEOO) 

920 

1 

37:o 

1170 

ENOt 

921 

1 

37:o 

1196 

See  previous  page  for  program  description. 


922 

1 

218 

1 

(••PSIPROCEDURE  EXAHINEISSUESI 

»23 

1 

210 

0 

BEGIN 

924 

1 

211 

0 

GOEXMtlNEl 

925 

1 

2:t 

2 

IF  OK-TRUE  THEN 

926 

1 

212 

10 

EX1T(EX4NINEISSUES) 1 

927 

1 

211 

14 

LASTCH4R4CTERI ST 1 C 1 -TRUE I 

928 

1 

211 

18 

IF  CORECNCORELASTl-CORECNCORELASTl  DIO  100  *  100  -  0  THEN 

929 

1 

212 

88 

LASTCHRRRCTERIST IC 1 -FALSE 1 

930 

1 

211 

92 

NODE  1-01 

931 

1 

211 

94 

COPACEl-i: 

932 

1 

211 

100 

PREPKEY<222>'0o  you  with  to  analyze  the  Firtl  parfornanca  itca?')} 

933 

1 

211 

158 

IF  ANS-'N'  THEN 

934 

1 

212 

145 

specifystart: 

935 

1 

211 

147 

REPEAT 

934 

1 

212 

147 

REPEAT 

937 

1 

213 

147 

NOOEl-NODEii; 

938 

1 

213 

175 

CHARACTERlSTICl-TRUEl 

939 

1 

213 

179 

IF  CORECNODEl-CORECNOOEl  OIV  100  «  100  -  0  THEN 

940 

1 

214 

249 

CHARACTERISTIC  1 -false: 

941 

1 

213 

253 

NEXTCHARACTERIST I C 1 -TRUE  t 

942 

1 

213 

257 

IF  CORECNODE-fll-CORECNODEill  DIU  100  t  100  -  0  THEN 

943 

1 

214 

331 

NEXTCHARACTERISTIC 1 -FALSE : 

944 

1 

213 

335 

IF (CHARACTERISTIC-FALSEITHEN 

945 

1 

214 

343 

changetopscreen: 

944 

1 

213 

345 

IF  CHARACTERISTIC-FALSE  THEN 

947 

1 

214 

353 

OOPAGEl-GOPAGEFi: 

948 

1 

212 

341 

UNTIL  (CHARACTERISTIC-TRUE)  OR  (NODE>-NCORELAST) 1 

949 

1 

212 

377 

IF  (NCORELASK-GOPAGE)  AND  <LASTCHARACTERISTIC-FALSE> 

950 

1 

212 

390 

THEN  BEGIN 

951 

1 

214 

393 

CLOSE  < OAT ANODE)) 

952 

1 

214 

401 

SAVE INDEX) 

953 

1 

214 

403 

EXIT(EXANINEISSUES)) 

954 

1 

213 

407 

END) 

955 

1 

212 

407 

INVERSE 1-2) 

954 

1 

212 

411 

SEEK<DATANODEtCORC2CNOOC1)) 

957 

1 

212 

434 

GET (OAT ANODE)) 

958 

1 

212 

441 

IF  FLAGCNODEI-TRUE  THEN 

959 

1 

213 

442 

inverse:«3) 

940 

1 

212 

444 

Ll-NODE-OOPAGEFl) 

941 

1 

212 

478 

HRITE(CHR(24)»INVERSC,'  SLt'.  t')) 

EXAMINEISSUES  does  initial  setup  for  analyzing  measurement  purpose-performance 
item  links. 


9A3 

1 

212 

S42 

FOR  K!>1  TO  4  M 

?A3 

1 

2t3 

956 

OEGIN 

964 

1 

214 

996 

J 1 ■DOT ANODE* .NT AXACKl 1 

96S 

1 

214 

971 

URITECJ.'.Ml 

966 

1 

213 

593 

END) 

967 

1 

2:2 

603 

NRITEl']')) 

968 

1 

2:2 

613 

LINE  1 -DAT ANODE* .TAXA) 

969 

1 

2:2 

621 

HRlTEr  ')) 

970 

1 

2:2 

631 

LLENGTHI-6O; 

971 

1 

212 

635 

INDENTt-14) 

972 

1 

2:2 

639 

SHOUALINE) 

973 

1 

2:2 

641 

MRITELN(CHR(26).'2')) 

974 

1 

2:2 

669 

COUNT 1-C0UNT41) 

97S 

1 

212 

677 

IF  (C0UNT«5>  OR  (NODE>NCORELAST>  OR 

976 

1 

2:2 

690 

<C0RECN0DE3  OlV  100OC0REEN0DE411  DIV  lOOlTHEN 

977 

1 

213 

734 

ENDfAGC: 

978 

1 

2:1 

756 

UNTIL  (1«0>  AND  <NODE-NCORELAST>) 

979 

1 

2:1 

771 

CLOSE (DAT ANODE)) 

980 

1 

2:1 

779 

SAVEINDEX) 

981 

1 

2:0 

781 

END) 

982 

1 

2:0 

800 

983 

1 

2:0 

800 

984 

1 

2:0 

800 

98S 

1 

2:0 

800 

986 

1 

2:0 

800 

<««1  •5:HEASPURF2.TEXT«> 

987 

1 

210 

800 

See  previous  page  for  program  description. 


988  i:0  (ttP«>8EGIN 

989  i:o  0 

990  i.'i  0  im.inecm.l:»o; 

991  IJl  02  NlSSUESl-S; 

992  111  00  MUMCHIHl 

993  111  48  KFINEASPECTSl 

99«  i:i  70  (kPHiiSKS»C0NCAT(C0PV<CURSVS,l,2),C09V<Cl«SP,1.2),C0Py«CURSUB,l,2),'!')} 

995  lit  142  C0RCMAI1E!«C(WCAT<AP«riSK,<COPY<CU»ISYS.l,4»fC0PY<CURSP,l,4),<COPt<CURSUB.lf4)),'C0')> 

994  ISl  245  HA«FASTlSSUE;«C08CAT<APHBSK,<C0PY<CUI»SYS,l,4>)fC0PY(CURSP,lf4>,<C0PY(CURSUB.lt4))i'FA  )* 

997  in  348  MITELNCM  on  now  torlinf  your  porForooncc  liMS.Mt 

998  in  428  READCOREFILEI 

999  in  430  SORTCOREFILEJ  . 

1000  in  432  lSSUENAHE:»CO«CAT<AP«DSK,<COPY<CURSYS,l,4)>,COPY<CURSP,l,4),(COPY<CURSUBilf4))i  IS  )» 

1001  in  535  BATA»IAAE:»COIICAT<APMDSK,(COPY<CURSYS,l#4)),COPY<CURSP,l,4),(COPY(CUBSUB,lt4)),'FI'n 

1002  in  438  OPENISSUEINDEXl 

1003  in  440  ALTERISSUESS 

1004  l:0  442  END. 


iMain  Program:  reads  and  sorts  core  file,  the  index  to  the  performance  items. 
Then,  control  is  transformed  to  the  ALTPRISSUES  program  which  presents  the 
list  of  measurement  proposes  and  the  various  analytic  procedures  which  may  be 
performed  with  measurement  purposes. 


PRINT  allows  the  analyst  to  print  either  1)  all  performance  items,  attributes 
and  measures,  or  2)  performance  items,  attributes  and  measures  for  a  given 
measurement  purpose.  The  analyst  may  choose  to  print  only  some  objectives, 
functional  purposes  and  charactierstics  in  this  program  without  altering  the 
basic  data  set. 
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^  •_  * 


1 

1 

IIP 

1 

(8«L  PRlNTERt  8) 

2 

1 

ito 

1 

3 

1 

liD 

1 

<8  Profroa  to  print  pirforMnc*  liMtt  «ttribut*f  ond  nnoturnt  lint  for  o  pivtn 

MoiurMvnt  purpo 

4 

1 

ItD 

1 

(8  Ronald  8.  Sbapiro  Voralon  2.0  10/25/828) 

S 

1 

ito 

1  froaro*  frlni4«i«Mtt«l 

4 

1 

i:d 

3 

7 

2t 

liD 

3 

• 

2B 

2iD 

1 

PROCEDURE  SETCH4IN(TYTLE:STftING)t 

9 

28 

3:d 

1 

PROCEDURE  SETCV4L(VAL:STRlNG>t 

10 

28 

4:d 

1 

PROCEDURE  OETCVALCVRR  VALtSTRlNG); 

11 

28 

sto 

1 

PROCEDURE  SMAPONt 

12 

28 

4iP 

1 

PROCEDURE  SMAPOFFt 

13 

28 

4tD 

1 

14 

22 

Ito 

1 

IS 

22 

Ito 

3 

14 

22 

2tD 

3 

FUNCTION  PADOLEtSELECTt  INTEGER)!  INTEGER! 

17 

22 

3tD 

3 

FUNCTION  8UTT0N( SELECT t  INTEGER)!  OOOLEANt 

IS 

22 

4t0 

1 

PROCEDURE  TTLOUTtSELECTt  INTEGER!  DATA!  BOOLEAN)! 

17 

22 

Sto 

3 

FUNCTION  KEYPRESS!  BOOLEAN! 

20 

22 

4:d 

3 

FUNCTION  RANDOM!  INTEGER! 

21 

22 

7:o 

1 

PROCEDURE  RANDOMIZE! 

22 

22 

b:d 

1 

PROCEDURE  NOTE(PITCH.DURATION:  INTEGER)! 

23 

22 

8:o 

3 

24 

1 

Ito 

3  Ustt  Chointtuff.aPPLESTUFFt 

2S 

1 

Ito 

3 

These  procedures  are  part  of  the  Apple  Computer's  CHAINSTUFF  library  entry, 
The  demonstration  package  uses  only  SETCHAIN  which  causes  another  program 
to  be  activated. 


2«  1  liD  3  (»m>CgNST 

27  t  ItD  3  BBJLBLl*'Th«  tyvlt*  Mti  b*  copobl*  of*' I 

28  1  ISD  3  0BAM.2>'Tht  tyttn  Buct  corry  out  th«  followinf  octiviti»«S't 

27  1  ISO  3  0BJLBL3«'Th«  lyitn  Buii  produces') 

30  1  ISO  3  OBJLBLdB'PerferBOnc*  objoctivo*  Bust  bo  Bot  dospiteS') 

31  1  ISO  3  0BJLBL9*'PprferB«ncB  objectives  oust  be  eet  despite:'; 

32  1  ISO  3 


CONSTANTS  are  defined, 


44 

1 

lift 

3 

(8«P9)VMt 

4S 

1 

ito 

3 

MOSNODEtFlLE  OF  FAOSFILEI 

44 

1 

ItD 

474 

OATMWDEtFlLE  OF  DATAOASEt 

47 

1 

110 

819 

COREFlLEtFILE  OF  INTEOCRCOlt 

48 

1 

ito 

1122 

ATTRlOUTEStFlLE  OF  FlLEATTKIOUTESt 

49 

1 

ito 

1443 

ATTRFaEtFlLE  OF  INTE6ERC121t 

70 

1 

liO 

1747 

NEASUREStFILE  pF  FlLEHEASURESl 

7i 

1 

i:d 

2108 

HEASFKEIFILE  OF  INTE0ERC121t 

72 

1 

Ito 

2412 

ISSUCtFlLE  OF  ISSUEFILCt 

73 

1 

liO 

3470 

FASTlSSUEiFILE  OF  FASTFlLEt 

74 

1 

Ito 

3789 

75 

1 

Ito 

3789 

CORE tARRAYCl.. 3003  OF  INTEOCRCOlt 

74 

1 

Ito 

4489 

ATTRC0RCiARRAVC1..2001  OF  INTECCRtl21t 

77 

1 

Ito 

5489 

NEASC0RE:ARRAYC1..4001  of  lNTE0ERC12}t 

78 

Ito 

7089 

ASFCCT tARRAYCl,. S3  OF  STRIN6C203t 

79 

1 

Ito 

7144 

C0RC2tARRAYC1..3001  OF  INTEGER; 

80 

1 

Ito 

7444 

ATTR2tARRAYtl..2001  OF  INTEGCRt 

81 

1 

Ito 

7444 

NEAS2:ARRAYC1..4001  of  INTEGCRt 

82 

1 

Ito 

8044 

FRlNTlTtFACKCD  ARRAYC1..3001  OF  OOOLEANt 

83 

1 

Ito 

8043 

84 

1 

Ito 

8043 

XFUNFUR.X0BJECTIVC,FAC,CURSYS,CUR8PtCURSUB:  STRIHGCBOlt 

85 

1 

Ito 

8309 

NCURHCASURE •NCURATTRIBUTC (NCURISSUE » 

84 

1 

Ito 

8309 

NFUNFUR.NOBJCCTlVCfNFAC.NCURSYS.NCURSFrNCURSUB:  iNTCOERt 

87 

1 

Ito 

8318 

88 

1 

Ito 

8318 

ISBUENANC.NANCATCORe.NANCATTRIBUTCS.NANENCCOREiNAMCHEASURCSt  STRlNGC303t 

89 

1 

Ito 

8398 

NANCFASTISSUC.CORENAMC.OATANAHEt  STRIHGCBOlt 

90 

1 

Ito 

8444 

LEVEL i  STRINOClOlt 

91 

1 

liO 

8452 

AFNBSKtSTRlNGClOlt 

92 

1 

Ito 

8458 

USCRNAHEiUSERDATEfUSCRHSGt  STRINGCBOll 

93 

1 

Ito 

8581 

94 

1 

Itp 

8581 

TENP»C0RCLAST,T1 ,72,73,34,35;  INTEGERCBlt 

95 

1 

Ito 

8402 

TEI1PX,ATTRLA$T,NEASLAST:1NTEGERC12]| 

94 

1 

Ito 

8414 

97 

1 

Ito 

8414 

NODE , 1 NVERSE , HELP , NSCREEN t INTEGER t 

98 

1 

Ito 

8418 

NCORCLAST ,NATTRLAST ,NHEASLAST  t INTEGER  t 

99 

1 

Ito 

8421 

N1SSUCS.NUISSUES,NATTR1BUTES,NNEASURE5,NUNEA5URES:INTEDER; 

100 

1 

Ito 

8424 

101 

1 

Ito 

8424 

I, J,K,L,N,N, CUT, INDENT, COUNT, TENP2t integer; 

102 

1 

Ito 

8434 

103 

1 

Ito 

8434 

NOISSUE, REFERENCED. LONGUAY, DONE, OVER, OK, SKIP,NOHE:BOOLEANt 

These  strings,  arrays  and  variables  arc  used  by  this  program 


104 

1 

no 

0444 

lOS 

1 

no 

0444 

LlNER:STRINGt4]i(tA00ED  TO  AVOIO  COHPILER  ERROR  ON  INLINE— NOT  USED  IN  PRINT  POHt) 

104 

1 

no 

0447 

ANSWER.LINE ISTRINCCOOI 1 

107 

1 

no 

0720 

100 

1 

no 

0720 

RNSfONSHOLO:  CNMtt 

100 

1 

no 

0731 

no 

1 

no 

0731 

PRNTITEXTI 

111 

1 

no 

0032 

112 

1 

210 

1 

PROCEDURE  ANYKEY irORURRDl 

113 

1 

3:0 

1 

PROCEDURE  ORANCHIN: FORWARD 1 

114 

1 

4:0 

1 

PROCEDURE  ORANCHOUTt FORWARD! 

ns 

1 

s.*o 

1 

PROCEDURE  ELININATEIFORWARDI 

114 

1 

sto 

1 

Continuation  of  strings,  arrays  and  variables  list  from  previous  page, 


117 

7 

111 

1 

limiKSMENT  PfWCEmmC  OPEMlSStClNKXt 

111 

7 

ito 

0 

K81N 

lit 

7 

111 

0 

miS8UEl>FM.SEl 

120 

7 

111 

4 

121 

7 

111 

4 

IE8ET  ( ISSUE.  1S8UCNM1E 1 1 

122 

7 

111 

IS 

mi6t) 

123 

7 

111 

IS 

IF  lORESULTOO  THEN 

124 

7 

112 

21 

KeiN 

12S 

7 

113 

21 

WIITELNCM  NEAS  PURP  FILE!')! 

124 

7 

113 

S9 

NUISSUESI-Ot 

127 

7 

113 

63 

NOISSUEl-TRUEl 

128 

7 

112 

67 

END 

129 

7 

111 

67 

asE 

130 

7 

112 

69 

IE6IN 

131 

7 

113 

69 

NUISSUES 1 >NISSUE861 t 

132 

7 

113 

77 

REPEAT 

133 

7 

114 

77 

NUISSUESl-NUtSSUES-l t 

134 

7 

114 

IS 

SEEK< ISSUE. NUISSICS) 1 

13S 

7 

114 

96 

6ET<ISSUE)t 

136 

7 

113 

104 

UNTIL(C0PV(ISSUE«.NANEtll.l.5)O'  ')  OR  (NUtSSUES-1 )  1 

137 

7 

113 

144 

IF  (NU1SSUES>1)  AND  (COPYdSSUE^.NAHECll.l.S)*'  ')  THEN 

131 

7 

114 

184 

NUISSUES  >0| 

139 

7 

112 

188 

ENOl 

140 

7 

111 

188 

CLOSCCISSUEll 

141 

7 

110 

197 

end; 

142 

7 

110 

212 

OPENISSUEINDEX  determines  how  many  measurement  purposes  there  are  (if  any). 


143 

8 

i:d 

1 

(>«9«)SE0HENT  PROCEDURE  TERNIiMTEt 

144 

8 

i:o 

0 

BEGIN 

14S 

8 

iti 

0 

URITEUK 'PLEASE  RUN  PR0C42  TO  CREATE  ATTRIB  1  NEAS')1 

144 

8 

111 

41 

antket; 

147 

8 

iti 

44 

BRANCHOUTt 

148 

8 

111 

47 

SETCNAINI'OSEETINO')! 

149 

8 

i:i 

81 

EXIT<PROGRAH>i 

ISO 

8 

ito 

85 

end: 

ISl 

8 

110 

98 

TERMINATE  displays  warning  message  and  transfers  control  back  to  analytic 
procedure  section  of  GREETING  program. 


1S2 

* 

118 

1 

(8*n)SEei1ENT  ntOCEDUK  OOENTASTISSUEl 

1S3 

* 

110 

0 

BEOIN 

194 

* 

110 

0 

(t*I-0) 

159 

* 

111 

0 

RESET ( FASTISSUE . NAHEFAST ISSUE  >  t 

15« 

* 

111 

11 

197 

* 

111 

11 

11-IORESULTl 

158 

* 

111 

16 

IF  lOO  THEN 

15* 

* 

113 

23 

REOIN 

IM 

* 

113 

23 

REHRITEIFASTISSUE.NAMEFASTISSUE > 1 

141 

* 

113 

36 

FOR  11«1  TO  NISSUES  80 

167 

* 

114 

52 

8ES1N 

163 

* 

119 

92 

SEEKlFASTlSSUE.Itl 

164 

* 

119 

63 

FOR  Jl-1  TO  300  DO 

165 

* 

116 

7* 

FAST ISSUE*. PRXNTITEJl 1 -FALSE 1 

166 

* 

119 

107 

rUTlFASTISSUEll 

167 

* 

115 

119 

IFlEOr (FASTISSUE) ITHEN 

168 

* 

116 

129 

8EGIN 

16* 

* 

117 

135 

MITELNl'OUT  OF  DISK  SfACE')| 

170 

* 

117 

162 

HRlTELNt'  tSFATAL  ERROR**  '>1 

171 

* 

117 

1** 

ANYKEY t 

172 

« 

117 

202 

8RANCH0UT1 

173 

* 

117 

209 

SETCHAIN('eREETING')t 

174 

* 

117 

21* 

EXIT(PROGRAH)| 

179 

* 

116 

223 

CNDI 

176 

* 

114 

223 

ENOI 
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OPENFASTISSUE  determines  whether  fastissue  file  exists.  If  not,  it  creates  it 
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READATTRFILE  loads  core  with  index  to  attributes  file 
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READMEASFILE  loads  core  with  index  to  measures  file, 
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OPEN  DATAFILE  cheeks  to  be  sure  performance  item  file  exists. 
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DEFINEASPECTS  tells  the  computer  the  labels  for  the  aspects. 
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READCOREFILE  reads  index  to  performance  items  into  core, 
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SORTATTRFILE  forms  an  array  ATTR2  which  is  a  permutation  vector  for  the 
attributes  file  so  that  if  one  were  to  print  out  ATTRIBUTES  [ATTR2(1)]  for 
1=1  to  N ATTRIBUTES,  the  attributes  would  appear  in  numerical  order. 
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SORTMEASFILE  forms  an  array  MEAS2  which  is  a  permutation  vector  for  the 
measures  file. 


SORTCOREFILE  prepares  an  array  CORE2  which  lists  the  location  of  each 
performance  item  in  numeric  order. 
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NAMEFILES  constructs  strings  containing  the  names  of  files  used  in  this  program 
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DISPLAYNAME  displays  a  measurement  purpose  on  screen  [called  by  display 
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DISPLAYISSUES  displays  names  of  all  measurement  purposes  on  screen. 
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ANYKEY  displays  "Please  Press  any  Key  to  Continue"  then  it  awaits  a  Keypress 
before  returning  control  to  the  calling  procedure. 
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HELPER  due  to  core  limitations,  it  was  not  possible  to  implement  the  full 
HELP  facility.  Thus,  this  HELPER  merely  displays  the  messacc. 
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KEYN  reads  a  3  or  4  digit  response  from  the  keyboard  and  places  it  into  1.  If 
an  H  or  an  h  are  typed  in,  it  places  a  999  in  1  and  calls  the  HELP  routine;  If 
more  than  4  characters  are  typed,  only  4  characters  ore  read.  The  rest  are 
ignored.  If  the  character(s)  are  not  positive  intergers,  KEYN  will  display  an 
appropriate  warning  and  wait  for  a  response. 
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93  HELPER 1 

9s  end: 


KEY  pcacJs  a  letter  response  from  the  keyboard.  If  response  is  1)  y  or  Y,  it  places 
a  Y  in  ANS  and  returns  to  calling  procedure;  2)  n  or  N,  it  places  on  N  in  ANS 
and  returns  to  calling  procedure;  3)  h  or  II,  it  calls  the  HELP  routine,  places  an 
H  in  ANS  and  returns  to  calling  program;  or  4)  any  other  key—it  displays  PLEASE 
RESPOND  YES  OR  NO  and  awaits  a  Y,  N,  H,  y,  n  or  h  response.  NOTE:  Only 
the  first  character/line  is  processed.  The  rest  is  ignored. 
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(<•99 > PROCEDURE  PREPKEr ( NLPt 1NTE6ER t HSG 1 STRING > 1 

S12 

1 

910 

0 

•EGIN 

913 

1 

911 

0 

NELP1*HLP1 

914 

1 

9il 

9 

REPEAT 

919 

1 

913 

9 

WRITE (NS6>I 

91« 

1 

912 

20 

KEYl 

917 

1 

911 

22 

UNTIL  (ANS>:'Y')  OR  (ANS>'N')  OR  <0RD(ANS>>37>1 

911 

1 

910 

41 

EHOt 

919 

1 

910 

94 

PREPKEY  displays  a  message  then  calls  KEY  to  read  a  letter  response  from  the 
keyboard.  If  a  response  is  not  Y,  y,  N,  n,  Yes  or  No,  it  redisplays  the  message 
and,  once  again,  waits  for  a  response. 


830 

1 

1010 

1 

(uraintocEOURE  inlinei 

821 

1 

1010 

1 

VM 

823 

1 

1010 

1 

L0NGLINElSTRINGtl2931 

823 

1 

1010 

44 

lineokiooolean; 

824 

1 

1010 

49 

828 

1 

1010 

0 

0E6IN 

824 

1 

1011 

0 

REPEAT 

827 

1 

1012 

0 

READLN<L0NGLINE)1 

828 

1 

1012 

19 

LlNEOKl-TRUEl 

829 

1 

1012 

22 

H1>LEN6TH<L0NGLINE){ 

830 

1 

1012 

29 

XF  N>80  THEN 

831 

1 

1013 

34 

0E61N 

832 

1 

1014 

34 

URlTELNl'ttHARNlNG  LINE  CONTAINS  OVER  80  CHARACTERS*t ' > 1 

833 

1 

1014 

100 

URITELNI'  'It 

834 

1 

1014 

118 

PREPKEY(39,'D0  YOU  WISH  TO  TRUNCATE  TO  80  CNARACTERST  ')t 

839 

1 

1014 

144 

IF  ANS«'N'  THEN 

934 

1 

1019 

173 

BEGIN 

937 

1 

1014 

173 

LlNEOKl -FALSE t 

938 

1 

1014 

174 

HRITELNl'PLEASE  TYPE  LINE  AGAIN!  '>! 

939 

1 

1019 

220 

END 

940 

1 

1014 

220 

ELSE 

941 

1 

1019 

222 

HI -801 

942 

1 

1013 

224 

ENBl 

943 

1 

1011 

224 

UNTIL  LIHEOKt 

944 

1 

1011 

230 

LINER:-COPY(LONGLINE,t.H>; 

949 

1 

1010 

248 

ENDt 

944 

1 

1010 

244 

INLINE  accepts  up  to  80  characters  of  text.  If  more  than  80  characters  are 
specified,  it  asks  if  it  ought  to  ignore  additional  characters.  If  told  to,  it  does. 
Otherwise,  it  allows  analyst  to  re-enter  the  line. 


S47 

1 

3t» 

1 

lt098>PWICEWRE  tRANCHlN) 

S4« 

1 

310 

0 

KeiN 

54» 

1 

3S0 

0 

(t«l-8) 

950 

1 

3tl 

0 

RESET  ( P4SSN0K . '  P4SSTHRU'  >  1 

991 

t 

3tl 

It 

lUIORESULTI 

592 

1 

3!1 

23 

<8«14*) 

553 

t 

3S1 

23 

IF  lOO  THEN 

954 

1 

312 

30 

KOIN 

995 

1 

313 

30 

MRITELNl 'PASSTHRU  FILE  OOES  NOT  EXIST')} 

954 

1 

313 

7t 

MRITELNI'  S<««««FATAL  ERROR*tM»*')} 

997 

1 

313 

123 

MRITELNl'  '»!>} 

99t 

1 

313 

147 

ANYKEY} 

997 

I 

313 

149 

tETCHAlNl'PMl')} 

940 

1 

313 

179 

EXIT(PROGRAH)} 

941 

1 

312 

193 

END} 

542 

1 

311 

lt3 

OETIPASSNODE) } 

943 

1 

311 

190 

CURSYS 1 -PASSNODE* .CURSYS} 

544 

1 

311 

198 

CURSP !  ■PASSNOOE''  .CURSP; 

949 

1 

311 

204 

CURSUBl-PASSNOOE''  .CURSUS} 

944 

1 

311 

214 

PACl-PASSNODE^.PAC} 

947 

1 

311 

220 

NCURSYS :-PASSNOOE* . NCURSYS} 

940 

1 

311 

227 

NCURSP 1 -PASSNODE* .NCURSP } 

549 

1 

311 

234 

NCURSUD 1  ■PASSNODE'^ .  NCURSUD } 

970 

1 

311 

241 

NPAC 1 -PASSNODE* . NPAC 1 

571 

1 

311 

248 

aOSE(PASSNODE)} 

572 

1 

310 

294 

END} 

973 

1 

310 

270 

BRANCHIN  gets  information  from  the  PASSTHRU  file  for  use  by  this  program. 


5M 

1 

llIB 

1 

(••mmoccDURE  TorscRceNi 

S87 

1 

1110 

0 

BEGIN 

5M 

1 

lilt 

0 

BAGEtOUrniT)} 

569 

1 

nil 

10 

Nl«LENGTH(CURSYSn 

590 

1 

nil 

18 

IF  H>14  THEN 

591 

1 

1112 

25 

Ni-14; 

592 

1 

nil 

29 

1 INE 1 -COFy  tCURSYS  n  >Mn 

593 

1 

nil 

48 

WlYEl't'iLINE,' 

594 

1 

1111 

90 

G0T0Xyi24,0){ 

595 

1 

1111 

95 

N1>LENGTH(CURSP)) 

594 

1 

nil 

103 

IF  HM4  THEN 

597 

1 

1112 

no 

Nl-141 

598 

1 

nil 

114 

LlNEl-COfY(CURSP.l,Nn 

599 

1 

nil 

133 

WRITE! ‘•'rLlNElt 

400 

1 

nil 

155 

GOTOXY! 44,0)1 

401 

1 

nil 

140 

R1«LENGTH(CURSUB) 1 

402 

1 

nil 

148 

IF  N>14  THEN 

403 

1 

1112 

ITS 

M!>141 

404 

1 

nil 

179 

L INE 1 -COPY ( CURSUB . 1 ,H> 1 

405 

1 

nil 

198 

HR1TELN('8',L1NC)1 

404 

1 

nil 

228 

80T0XY<42,0>t 

407 

1 

nil 

233 

WR1TELN<'8'.PAC)1 

408 

1 

nil 

243 

Ml-t.ENOTH(  XOBJECTIVE)  1 

409 

1 

nil 

271 

IF  N>47  THEN  N:-47t 

410 

1 

nil 

282 

L IKE 1 -COP Y < XOB JECT 1 VE , 1 ,N > 1 

411 

1 

lilt 

301 

IF  NSCREEN>1  THEN 

412 

1 

1112 

308 

HRITELN! 'ObjKtivtt'fNOBJECTlVE, '31  ‘  ,L1HE)  1 

413 

1 

nil 

374 

Nl-LENGTH(XFUNPUR)t 

414 

1 

nil 

384 

IF  N>47  THEN  81-471 

415 

1 

nil 

395 

LlNEt-COPy<XFUNPUR,t,N)t 

414 

1 

nil 

414 

IF  NSCRCEN>2  THEN 

417 

1 

1112 

421 

MRITELN! 'Fell  Pfp#t ',NF0NPUR,'31 ' ,L1NE>1 

418 

1 

nil 

489 

HR2TEtN(‘  Ml 

419 

1 

1110 

507 

ENBl 

420 

1 

1110 

520 

TOPSCREEN  displays  appropriate  header  information  at  the  top  of  each  screen, 


«21 

1 

1218 

1 

(tOPtlPItOCEmmE  HHICHELIHINATEl 

A22 

1 

12:0 

0 

BEGIN 

«23 

1 

12:1 

0 

PAGE<0UTPUT)» 

A24 

1 

1211 

10 

WtlTELNl 'Mould  you  llKo  to  olloinoio  at  tho  level  ori',chr(13). 

62S 

1 

1211 

74 

'  Oa  No  elieination'tChr<13>> 

626 

1 

1211 

117 

'  !•  0bJectivee'tChr(13)» 

627 

1 

1211 

154 

'  2.  Functionol  Purposes' ichr(13>f 

62» 

1 

1211 

200 

'  3.  Chorocteristics')! 

629 

1 

1211 

240 

REPEAT 

630 

1 

1212 

240 

KEYNl 

«31 

1 

1212 

242 

IF  (KO)  OR  <I>3)  OR  (I<0>  THEN 

A32 

1 

1213 

241 

HRITELNl 'PLEASE  SPECIFY  AN  INTEGER  BETMEEN  0  AND  3') I 

A33 

1 

1211 

322 

UNTIL  (I>-0)  OR  <1<4): 

A34 

1 

1211 

333 

IF  I«0  THEN 

A3S 

1 

1212 

342 

BEGIN 

636 

1 

1213 

342 

aOSE(OATANOOE)l 

637 

1 

1213 

331 

EXIT(ELlHlNATE)i 

630 

1 

1212 

333 

ENOI 

639 

1 

1211 

353 

IF  I*1  THEN 

660 

1 

12:2 

342 

BEGIN 

441 

1 

1213 

342 

LEVELl-'OBJ'l 

442 

1 

1213 

373 

CUTl<i00001 

443 

1 

1213 

379 

NSCREENl-11 

444 

1 

12:2 

383 

END! 

443 

1 

12:1 

383 

IF  I«2  THEN 

444 

1 

1212 

390 

BEGIN 

447 

1 

1213 

390 

LEVEL1«'FP'J 

448 

1 

1213 

400 

CUT1«100: 

449 

1 

1213 

404 

NSCREEN1«2I 

450 

1 

1212 

408 

END! 

451 

1 

1211 

408 

IF  I«3  THEN 

432 

1 

1212 

415 

BEGIN 

453 

1 

1213 

415 

LEVELls'CHAR'l 

454 

1 

1213 

427 

CUT1>11 

433 

1 

1213 

431 

NSCREENl-3i 

454 

1 

1212 

435 

ENOI 

457 

1 

1210 

433 

ENDl 

458 

1 

12:0 

450 

WHICHELIMINATE  asks  what  level  should  be  used  in  asking  analyst  what 
performance  items  are  not  part  of  his/her  analysis. 


6S9 

1 

13:d 

1 

(t«p*)PM)CE0UftE  askelininote; 

MO 

1 

1310 

0 

BEGIN 

Ml 

1 

13tl 

0 

d:«TmiNC(COflECNODE]  DIV  1000000)1 

M2 

1 

13tl 

54 

PAC:-ASPECTCJ3t 

M3 

1 

1311 

72 

M4 

1 

1311 

78 

topscreen; 

MS 

1 

13il 

80 

VR1TELN('TI»*  following  toxon  is  schodulod  to  bo  printed: 

MO 

1 

13: 1 

148 

SEEK ( DOTAHODE  f C0RE2CN0DE1 ) i 

M7 

1 

13tl 

172 

GET(DATAHODE)t 

MB 

1 

13: 1 

180 

00T0XY(0.12>t 

04? 

1 

13tl 

IBS 

UR1TE(CHR(11),'  'It 

070 

1 

13:1 

20? 

FOR  j:>l  TO  4  00 

071 

1 

13:2 

223 

NRlTE(OATANODE*.NTAXAt J], ' .'It 

072 

1 

13:1 

2M 

HRl TELN  <  DAT ANODE A . TAXA  >  t 

073 

1 

13:1 

288 

URITELNC'  ')t 

074 

1 

13tl 

300 

PREPKEY(230. 'Mould  you  like  to  print  it?')t 

07S 

% 

13:1 

341 

IF  0R0(ANS)>>27  THEN 

070 

1 

13:2 

348 

BEGIN 

077 

1 

13t3 

348 

aOSE(DATANODE)t 

078 

1 

13:3 

337 

EXIT(ELlHlNATE)t 

079 

1 

13:2 

301 

end: 

080 

1 

13tl 

301 

IF  ANS>'Y'  THEN 

081 

1 

13:2 

308 

exit: ASKELIMINATE): 

082 

1 

13:1 

372 

PRINT! TCNODEl : -FALSE  t 

083 

1 

13:1 

390 

IF  LEVELO'CHAR'  THEN 

084 

1 

13:2 

404 

FOR  I:>1  TO  NCORELAST  DO 

083 

1 

13:3 

420 

IF  CORECn  DIV  CUT  B  CUT  «  CORECNODEl 

080 

1 

13:3 

473 

THEN  PRINTlTtI3!-FAlSC: 

087 

1 

13:0 

S13 

end: 

088 

1 

13:0 

S30 

i 

ASKELIMINATE  asks  analyst  exactly  what  he/shc  wants  to  eliminate  by  presenting 
taxons  one  at  a  time. 


AB9 

1 

sto 

1 

(ttP$)PR0CEDURE  ELIHINATEI 

&90 

1 

5:o 

0 

BEGIN 

6?1 

1 

5:i 

0 

PREPKEY(260r'Po  you  uiuh  to  elioinot*  ony  porforoanco  ilM*  froo  your  printoutT')| 

bn 

1 

511 

74 

IF  (RNS«'N')  OR  (0RD<6NS)«27)  THEN 

693 

1 

512 

87 

EXIT(ELIHINATE): 

694 

1 

511 

91 

RESET!  MTRNOPE .  PATMMHE  >  1 

695 

1 

511 

104 

UHlCHELIHINArE; 

696 

1 

511 

106 

FOR  NODEl'l  TO  NC0REL6ST  DO 

697 

1 

512 

122 

IF  CORCtNODElOO  THEN 

698 

1 

513 

152 

BEGIN 

699 

1 

514 

152 

IF  LEVEL- 'OBJ'  THEN 

700 

1 

515 

165 

IF  PRINTITCNODEI-TRUE  THEN 

701 

1 

516 

187 

IF  CORECNODEl-CORECNODEl  DIV  10000  »  10000  THEN 

702 

1 

517 

252 

ASKELIHINATEI 

703 

1 

514 

254 

IF  LEVEL- 'FP'  THEM 

704 

1 

515 

266 

IF  PRINTITCNODEI-TRUE  THEN 

705 

1 

516 

288 

IF  CORECNODE2-COREINODE3  BIV  100  •  100  THEN 

706 

1 

517 

349 

IF  C0REIN0DE1OC0RECN0DE3  DIV  10000  t  10000  THEN 

707 

1 

518 

414 

RSKELIHINATEl 

708 

1 

514 

416 

IF  LEVEL- 'CHAR'  THEM 

709 

1 

515 

430 

IF  PRINTITCNODEI-TRUE  THEN 

710 

1 

516 

452 

IF  C0RECN0DE3OC0RECN0DE3  DIV  100  «  100  THEN 

711 

1 

517 

513 

ASKELIMINATE: 

712 

1 

514 

515 

IF  NSCREEN>1  THEN 

713 

1 

515 

522 

IF  CORECNODEI  DIV  10000  •  10000-C0REtN0DE3  THEN 

714 

1 

516 

587 

BEGIN 

715 

1 

517 

5B7 

SEEK ( DATANOOE , C0RE2CN0DE3  > i 

716 

1 

517 

611 

GET (DAT ANODE): 

717 

1 

517 

619 

XOD JECT I VE : -DAT ANODE* . TAXA : 

718 

1 

517 

629 

NOB JECT I VE : -PAT ANODE  * . NT AXAt  2  3 1 

719 

1 

516 

644 

ENO: 

720 

1 

514 

644 

IF  NSCREEN>2  THEN 

721 

1 

515 

651 

IF  C0RECN0DE3  OIV  100  •  100  -  CORECNODEI  THEN 

722 

1 

516 

712 

BEGIN 

723 

1 

517 

712 

SEEK ( OAT ANODE . CORE2CNODE3 ) I 

724 

1 

517 

736 

GET < DAT ANODE): 

725 

1 

517 

744 

XFUNPUR ! -OAT ANODE* . TAXA : 

726 

1 

517 

754 

NFUNPUR ! = DAT ANODE* . NTAXAC3  3  J 

727 

1 

516 

769 

end: 

728 

1 

513 

769 

end: 

729 

1 

511 

779 

CLOSE! DAT ANODE); 

730 

1 

510 

788 

end; 

731 

1 

510 

810 

ELIMINATE  using  information  gained  from  WHICHELIMIN ATE,  calls  ASKELIMINATE 
as  appropriate. 


732 

141D 

1 

<MP8)PR0CE]niRE  PMCESSlSSUEi 

733 

1410 

0 

K6IN 

734 

1411 

0 

IF  N0ISSUE*FM.SE  THEN 

73S 

1412 

8 

BEGIN 

734 

1413 

8 

REPEAT 

737 

14!4 

8 

HRUEl'Hhlch  M««ur«Mni  purpoM  would  you  liko  to  use  (typo  0  for  nonelT'tl 

738 

1414 

84 

ketn: 

737 

1413 

88 

UNTIL  <I>>0)  ANO  <l<-NtSSUES> 

740 

1412 

100 

END 

741 

1411 

103 

ELSE 

742 

1412 

105 

i:-oi 

743 

14tl 

10* 

NCURISSUE:-!! 

744 

14:i 

115 

IF  1-0  THEN 

745 

1412 

122 

KGIN 

744 

1413 

122 

FOR  JI-1  TO  300  DO 

747 

14S4 

138 

printitcjii-true; 

748 

14t3 

144 

EXIT  (PROCESSISSUE)! 

74* 

14:2 

170 

END! 

750 

1411 

170 

RCSEKFASTISSUE.NAHEFASTISSUE)  1 

751 

14!1 

183 

SEEK(FASTlSSUE.I)!  | 

752 

14:i 

1*4 

GEKFASTISSUE)! 

753 

14:i 

202 

CLOSE<FASTISSUE)| 

754 

14tl 

211 

0K:-fALSEI 

755 

I4:i 

215 

FOR  j:-l  TO  300  00 

754 

14!2  231 

BEGIN 

757 

1413 

231 

PR1NTITIJ1:-FASTISSUE*.PR1NT1TIJ3! 

758 

1413 

245 

IF  PRINTITCJl-TRUE  THEN 

75* 

14!4 

287 

ok: -TRUE! 

740 

1412  291 

END! 

741 

1411 

301 

IF  OK-TRUE  THEN 

742 

1412  30* 

EXIT<PROCESSISSUC>! 

743 

14:i 

313 

FOR  j:*l  TO  300  DO 

744 

14t2  32* 

PRINTITCJi:-FALSE! 

745 

1411 

357 

RESET! ISSUEf ISSUENANE ) ! 

744 

14: 1 

370 

SEEKdSSUEfD! 

747 

1411 

381 

OCT (ISSUE)! 

748 

14: 1 

389 

T2:«0! 

74* 

i4:i 

404 

NRITELN! 'Picas*  be  patient. ..'>chr(13>t 

770 

i4:i 

444 

'  I  ao  petting  set  up  to  use  your  oeosu resent  purpose')! 

i4:i 

51* 

FOR  j:-l  TO  225  DO 

PROCESSISSUE  selects  performance  items  for  printing  based  upon  the 
measurement  purpose  in  use. 


772 

1 

1412 

535 

aceiN 

773 

1 

1413 

535 

Tll-ISSUE^.MTACJJt 

774 

1 

1413 

545 

IF  7100  THEN 

775 

1 

1414 

583 

8roiN 

774 

1 

1415 

583 

SKIPl-FALSei 

777 

1 

1415 

587 

FOR  Kl-l  TO  300  00 

778 

1 

1414 

603 

BEGIN 

77? 

1 

1417 

603 

T51«C0REtK1} 

780 

1 

1417 

631 

IF  <T1  -  T5)THEN 

781 

1 

1418 

650 

BEGIN 

783 

1 

141? 

650 

PRINTITCKTI-TRUEI 

783 

1 

141? 

668 

»(lPl>TRU£t 

784 

1 

1418 

672 

end: 

785 

1 

1414 

672 

end: 

784 

1 

1415 

682 

IF  SKIP-TRUE  THEN 

787 

1 

1414 

6?0 

IF  <T1  OIV  100  »  100  <>  T2>  THEN 

788 

1 

1417 

727 

BEGIN 

78? 

1 

1418 

727 

FOR  Kl-l  TO  300  DO 

790 

1 

141? 

743 

BEGIN 

7?1 

1 

1410 

743 

T2:-ti  div  looBioo: 

7?2 

1 

1410 

777 

T31-T1  DIV  10000  »  100001 

7?3 

1 

1410 

815 

T41-T1  DIV  1000000  BlOOOOOOl 

7?4 

1 

1410 

88? 

TSl-COREtKi: 

7?5 

1 

1410 

?17 

IF  72  «  TS  THEN 

7?4 

1 

1411 

?36 

PRINTITIKIl-TRUEl 

7?7 

1 

1410 

?S4 

IF  73  -  T5  THEN 

7?8 

1 

1411 

?73 

PRINTlTCKIl-TRUEl 

7?» 

1 

1410 

??1 

IF  74  -  T5  THEN 

ioo 

1 

1411 

1010 

PRIHTITtKTl-TRUEl 

801 

1 

141? 

1028 

end: 

802 

1 

1417 

1038 

end: 

803 

1 

1414 

1038 

end: 

804 

1 

1412 

1038 

end: 

805 

1 

1411 

1048 

close: ISSUE): 

804 

1 

1411 

1057 

RESET (FASTISSUEfNAHEFASTISSUE ) 1 

807 

1 

1411 

1070 

ui-hcurissue: 

808 

1 

1411 

1076 

SEEK(FASTISSUE>Ji: 

80? 

1 

1411 

1087 

FOR  Jl-1  TO  300  DO 

810 

1 

1412 

1103 

FASTISSUE''.PRIH7ITtJ31-PRINTITtJ3: 

811 

1 

1411 

1147 

PUT<FAST1SSUE); 

813 

1 

1411 

1155 

CLOSE(FASTISSUE): 

813 

1 

1410 

1164 

end: 

814 

1 

1410 

1202 

See  previous  page  for  program  description. 


81S 

1 

15(8 

1 

(tOmntOCEDUKE  PRINTHEOSUREt 

•lA 

1 

13(0 

0 

8EG1H 

817 

1 

1311 

0 

FOR  NCURHE08URE!>1  TO  NHEASLAST  DO 

818 

1 

1312 

10 

IF  RTTRCmECNCURATTRlDUTEl-HEASCOREtNCURHEOSUREl  DIV  100  THEN 

819 

1 

1313 

08 

DEOIN 

820 

1 

13(4 

08 

SEEK ( NEOSURES , HE AS2C  NCURHE ASURE  3 ) ( 

821 

1 

15(4 

92 

OETCHEASURESX 

822 

1 

13(4 

100 

HRITE(FRNT>'  'll 

823 

1 

13(4 

124 

FOR  Kl-1  TO  0  DO 

824 

1 

1313 

138 

URITE(PRNT,HEASURES*.NDESCRIPT0RCK3f ' . ' > I 

823 

1 

13(4 

181 

HRITELNCPRNTf'  '.NEASURES'^.DESCRIPTORX 

820 

1 

13(3 

213 

end; 

827 

1 

13(0 

223 

end; 

828 

1 

13(0 

244 

PRINTMEASURE  prints  a  measure  for  current  performance  item 


829 

1 

1418 

1 

(tifOPftOCEBURE  PRINTATTR18UTE1 

830 

1 

1410 

0 

BEGIN 

831 

1 

1411 

0 

FOR  NCURATTRIBUTE1>1  TO  NATTRLAST  BO 

832 

1 

1412 

14 

IF  CORECn-ATTRCORECNCURATTRlBUTEl  BIV  100  THEN 

833 

1 

1413 

48 

BEGIN 

834 

1 

1414 

48 

8EEK(ArTRlBUTES,ATTR2tNCURATTRlBUTE3  > 1 

83S 

1 

1414 

92 

GETlATTRIBUTESlt 

834 

1 

1414 

100 

HRlTElPRNTt' 

837 

1 

1414 

122 

FOR  Kl-1  TO  4  BO 

838 

1 

141S 

134 

IIRITE<PRNT,ATTR1BUTES'^.N0ESCRIPT0RCK3. ' . ' 

839 

1 

1414 

179 

URITELNIPRNT , '  ' .ATTRIBUTES* . DESCRIPTOR) 1 

840 

1 

1414 

211 

PRINTHEASUREI 

841 

1 

1413 

213 

ENDl 

842 

1 

1410 

223 

ENBI 

843 

1 

1410 

244 

PRINTATTRIBUTE  prints  attributes  for  current  performance  items. 


844  1 1718  KtminOCEBUflE  OETUSERSTUFFi 

845  1  1710  0  lEOIN 

844  1  17tl  0  USERNMCi-'tmMtm't 

847  117;i  18  USCRHS6:-'m»m«»«'i 

848  1  1711  34  RCKAT 

849  11712  34  HRITEI 'Hhtt  is  your  noM?  ')| 

850  1  17)2  47  (MR-t)  . 

83111712  47  RCAOLNlUSCRiMME)) 

852  1  1712  87  <tm«) 

833  1  1712  87  WlTELHl'  'It 

834  1  17)1  103  UNTIL  (C0PV(U8ERNANE.li3)<>'m' )  AND  ( LENGTH ( USERNAME »0)t 
833117)1  133  REPEAT 

854  1  17)2  133  HRlTELNf 'Ploos*  typo  «  40-cb«ractor  (mx<>  idoniificeiien  codo  for  tho  printout!')) 
857  1  17)2  224  (t«R-t> 

838  1  17)2  224  REAOLN<USERNSG)t 

639  1  17)2  244  (PtRtt) 

840  1  17)2  244  HRITELNI'  ')) 

841  1  17)1  244  UNTIL  (C0PY(USERM86tlt3>O'm')  AND  <LEN6TH(U8ERHS8»0>; 

842  1  17)1  294  REPEAT 

843  1  17)2  294  HRITELN('Plooso  typo  todays  data)  '» 

844  1  17)2  339  <9«R-t) 

843  1  17)2  339  READLN(USERDATE)t 

844  1  17)2  339  <t«R4«) 

8471  17)2  339  URlTELNt'  ')) 

8481  17)1  377  UNTIL  <C0PV<USERNS6>lt3)<>'«*«'>  AND  (LENGTH(USERDATE»0) ) 

849  1  1710  407  END) 

870  1  17)0  424 


GETUSERSTUFF  asks  analyst  for  his/her  name,  project  title  and  the  date, 


TITLEPAGE  prints  title  page  for  printout. 


W2 

1 

1918 

1 

(MPOMocEixmE  header: 

992 

1 

19t0 

0 

DEGIN 

e«4 

1 

1911 

0 

REHR1TE(PRNT» 'PRINTER: ' >: 

893 

1 

1911 

21 

PA6E<PRNT)| 

894 

1 

1911 

31 

IMITELN(PRNT.CHR(14) .USERNAME) : 

897 

1 

19U 

61 

NRITELN<PRNT.CNR( 14) .USERDATE) 1 

898 

1 

19: 1 

91 

MR1TELN(PR)IT.CHR<  14)  .USERHSG) : 

899 

1 

I9:i 

121 

IF  NCURISSUEOO  THEN 

900 

1 

1912 

128 

DEGIN 

901 

1 

1913 

128 

reset:  ISSUE. ISSUENAIC)  : 

902 

1 

1913 

141 

seek: issue.ncurissue) : 

903 

1 

19:3 

152 

get: ISSUE): 

904 

1 

19:3 

160 

hriteln:prnt.'  m: 

905 

1 

19:3 

178 

HRlTELN:PflNT,CHR:i4).'N*«turMMt  Purpott)  ',CHR:i5).ISSUE*.NANEI13); 

906 

1 

1913 

261 

hriteln:prnt.'  *. issue*. nahe[21): 

907 

1 

19:3 

328 

hriteln:prnt.' 

908 

1 

19:3 

346 

close: ISSUE): 

909 

1 

19:2 

353 

END 

910 

1 

1911 

333 

ELSE 

911 

1 

1912 

357 

DEGIN 

912 

1 

19:3 

337 

hriteln:prnt.'  ')i 

913 

1 

1913 

375 

MRITELN:PRNT.CHR:i4).'Nt0Mr»Mnt  PurpoMl  '.CHR:15>.'  Globol'): 

914 

1 

1913 

433 

MIITELN<PRNT,'  ')! 

915 

1 

19:2 

473 

end: 

916 

1 

19: 1 

473 

IIRITELN:PRNT.CHR:i4).'87mtM  CImC  '.cttrllSl.CURSYS.'C'.NCURSTS. '3' )! 

917 

1 

I9:i 

571 

IIRITELN:PRNT,CHR:  14) .  'SystM:  ' .clir :  15> .curtp , ' [ ' .NCURSP. ' 3' > : 

918 

1 

19: 1 

663 

IIRITELN:PRNT.CHR:  14>. 'Sub«y«tM:  ' ,cltr:is> .CURSUD, 'C ' .NCURSUB. ' 3' ) : 

919 

1 

i9:i 

738 

nritcln:prnt.'  '.chr:is).cnr:i3)): 

920 

1 

i9:o 

796 

end: 

921 

1 

i9:o 

810 

HEADER  prints  header  on  printout 


922 

1 

2010 

1 

<0tPt>PR0CEDU8E  PRNTDAT4SET1 

923 

1 

2010 

0 

8EGIN 

924 

1 

2011 

0 

RESET ( DAT ANODE • DAT ANAHE  > 1 

92S 

1 

2011 

13 

RESET (ATTRIBUTES, NAHEATTRIBUTES) I 

924 

1 

2011 

24 

RESCT(NEASURES,NANEHCASURES> 1 

927 

1 

2011 

39 

REPEAT 

928 

1 

2012 

39 

HEADER!  ' 

929 

1 

2012 

41 

TENP2:«0t 

930 

1 

2012 

43 

FOR  ll-l  TO  NCORELAST  DO 

931 

1 

2013 

41 

IF  PRINT  lTtn>TRUE  THEN 

932 

1 

2014 

83 

K6IN 

933 

1 

2015 

83 

SEEK  <  DAT ANODE ,C0RE2t 13)1 

934 

1 

2015 

107 

GET(DATAN00E)t 

935 

1 

2015 

113 

INDENT  1-41 

934 

1 

2013 

119 

IF  DATAN0DE''.NTAXAI43-0  THEN 

937 

1 

2014 

133 

INDENT  1-3! 

938 

1 

2015 

139 

IF  DAT ANODE*. NTAXAC31-0  THEN 

939 

1 

2014 

133 

INDENT 1-2! 

940 

1 

2013 

139 

IF  DATAN0DE*.NTAXAC23-0  THEN 

941 

1 

2014 

173 

INDENT  1-1! 

942 

1 

2013 

179 

IF  (0ATAN0DE*.NTAXA[13<>TEHP2)  AND  (DATAN0DE*.HTAXAC13<>0)  THEN 

943 

1 

2014 

212 

BEGIN 

944 

1 

2017 

212 

IIRITE<PRNT,DATAN0DE*.NTAXA[11,'. 0.0. 0.0.0.  ')! 

943 

1 

2017 

237 

HRITE(PRNT,ASPECTfDATAN0DE*.NTAXA[n3,'!  ')! 

944 

1 

2017 

302 

CASE  OATANODE*.NTAXAtll  OF 

947 

1 

2017 

314 

1!IIRITELN(PRNT,0BJLBL1 ) ! 

948 

1 

2017 

348 

2:HRITELN(PRNT,0BJLBL2) ! 

949 

1 

2017 

441 

31IIRITELN(PRNT,0BJLBL3> ! 

930 

1 

2017 

487 

4tllRITELN(PRNT,0BABL4> ! 

931 

1 

2017 

352 

S:WRITELN(PRNT,0BJLBL5>! 

932 

1 

2017 

417 

END! 

933 

1 

2014 

434 

end; 

934 

1 

2013 

434 

7ENP21 «DATANODE*.NTAXAt 1 3  f 

933 

1 

2013 

449 

FOR  Jl-1  TO  INDENT  DO 

934 

1 

2014 

445 

WRITE<PRNT,'  ')} 

957 

1 

2015 

489 

FOR  Jl-1  TO  4  DO 

938 

1 

2014 

703 

HRITE<PRNT,DATANODE*.NTAXAt JI, ' . ' ) ! 

939 

1 

2015 

744 

URITELN(PRNT,'0.0.  DAT ANODE *.TAXA>! 

940 

1 

2013 

785 

IF  IN0ENT>1  THEN 

941 

1 

2014 

792 

PRINTATTRIBUTE! 

PRINTDATASET  is  the  controlling  program  for  printing  a  data  set.  Also,  prints 
all  performance  items.  Calls  PRINTATTRIBUTE  when  necessary. 


898 
9«2 
982 
902 
912 
922 
931 
998 
1011 
1020 
1029 
1038 
1008 
I  1008 
I  1008  (t«I 
1008 


IF  KEYPRESS  THEN 
8EGIN 
REOO(ANS) I 
IF  ORO(ANS)>27  THEN 
BEGIN 

HRlTELN(PRHT.'Jah  CMcell*0')| 

PAGE(PRNT)I 
aOSE(PRNT)l 
CLOSE <OATONOOE)1 
CLOSE(ATTR»UTES>} 

CLOSE! HE ASURES)! 

EXITCPRNTOATASETl) 

ENOt 

ENBI 

CHOI 

PAGE(PRNT)| 

CLOSE<PRNT)$ 

PREPKEV<303t'HiMild  you  like  to  pfini  onoihtr  copy  of  ihopt  ooopurooonipt' >1 
UNTIL  (ANS>'N')  OR  (0R0(ANS)-27)1 
aOSE<  DAT  ANODE)! 
aOSE(  ATTRIBUTES)  I 
aOSE(HEASURE8) ! 

END! 


•SiPRINT2.TEXT«) 


See  previous  page  for  program  description. 


9891110  0 

9901110  0 

9911111  0 

9921  111  118 
9931  111  124 
9941  111  130 
9951  111  132 
9901111  135 
9971  111  138 
9981  111  175 
9991111233 
10001  111  236 
1001  1  111  239 
10021111299 
10€S  1111  302 
1004  1  111  305 
10051111363 
10061111366 
1007  1  111369 
10081111  429 
1009  1  111  432 
10101111435 

1011  1111438 

1012  1111440 

1013  1  111  442 

1014  1  112  442 

1015  1 112  445 

1016  1  112  447 

1017  1  113  447 

1018  1  113  449 

1019  1113  451 

1020  1 112526 

1021  1 112539 

1022  1111599 

1023  1  111614 

1024  1111635 

1025  1 112  652 

1026  1111714 

1027  1  111  724 

1028  1  111733 

1029  1111735 

1030  1110749 


(tOniBEOIN 

NISSUESl-5i 

NHE6SURESi*400t 

NAmiBUTE8t>200t 

IRANCHINl 

DEFItCASPECTSl 

IMUmi  FC2 

WRlTELNl'FlMM  b*  poil*ni')l 

HRITELNl'  1  o*  •tttrtint  to  tori  your  d«tofllo«'>l 

READATTRFILEI 

SORTATTRFILEt 

WtlTELNl'  1  Ju«i  finiobod  lortlAf  tb*  ottributo*')) 

KEMMEASFILE) 

SORTHEbSFILEI 

IIRITELNl'  1  Ju»t  finisbod  MriinQ  iho  Moturot'll 

READCOftCFILEl 

SORTCOREFILEl 

imiTELNI'  1  Jutt  flnlthod  •ortlng  your  dotoFilos*)! 

OPENDATbFILEt 

OPENISSUEIHDEXi 

OFENFASTtSSUEl 

BETUSERSTUFFl 

TITLEPAGEl 

REPEAT 

DISPLAYISSUESl 

PROCESSlSSUEi 

REPEAT 

eliminate; 

PRNT dataset; 

PREPKE Y( 359 1 'Mould  you  likt  to  rooovo  oorc  porforoonct  ilMt  fro*  your  printoutT'); 
UNTIL  (ANS«'N')  OR  <0R0(ANS>«27); 

PRCPKEY(360i 'Mould  you  like  to  precoft  onotbor  ooosurootnt  purpoM?'! 

UNTIL  (ANSo'N'l  OR  <0R0<ANS)«27>; 

REMRITEIPRNT, 'PRINTER  1 ' ) ; 

FOR  11*1  TO  10  DO 

MRITELNIPRNT.'END  OF  PRINTOUT  FOR  '.USERNAHElt 
PAGEIPRNT); 
aOSE<PRNT); 
iranchout; 

SETCHAINl 'GREETING'); 

END. 


BEGIN  is  the  main  program;  1)  sorts  attributes  and  measures,  2)  processes 
measurement  purposes,  3)  eliminates  unwanted  performance  items,  and  4)  prints 
wanted  performance  items. 


U2 

3015 

794 

IF  KEYPRESS  THEN 

9A3 

3014 

801 

BEGIN 

964 

3017 

801 

READ(MtS)l 

96S 

3017 

812 

IF  ORD(ANS)-27  THEN 

9U 

3018 

819 

BEGIN 

967 

3019 

819 

URITELN(PRNT,'Job  cmctlUd'X 

948 

3019 

852 

PME(PRNT)i 

969 

3019 

842 

CL0SE<PRNTIt 

970 

3019 

871 

CL0SE(DATAN0K>t 

971 

3019 

880 

CL0SE< ATTRIBUTES)! 

973 

3019 

889 

aOSECHEASURES)! 

973 

3019 

898 

EXIT(PRNTSATASET)t 

974 

3018 

902 

END! 

975 

3014 

902 

CNB! 

974 

3014 

902 

END! 

977 

3013 

912 

PAGE(PRNT)| 

978 

3013 

922 

CL0SE(PRNT>i 

979 

3012 

931 

PREPKEY(303t'HiMild  you  like  to  print  onothor  copy  of  thost  ooasuroMntcT')! 

980 

3011 

998 

UNTIL  <ANS«'N')  OR  <0RD<ANS)*27); 

981 

2011 

1011 

aOSElOATANOOE)! 

983 

2011  1030 

aOSE(ATTRIBUTES)t 

983 

3011  1029 

CLOSE ( HEASURES) i 

984 

2010  1038 

END! 

985 

2010  1048 

984 

2010  1048 

987 

3010  1048  (MI 

•S:PRINT2. TEXTS) 

988 

3010  1048 

See  previous  page  for  program  description. 


9891  1>0  0  <«M>a>BEOIN 
9t011t0  0 

*911111  0  NI8SUES:-51 

992  1  111  ns  NNEASURES:-4001 

993  1  I  tl  124  IMTTSIBUTESi*200t 

9941111  130  SRANCHIN: 

99S 1  1 1 1  132  OEFINEASPECTSI 

9941111139  NAHEFlLESi 

997  1  111  138  URITELNl'PlMU  be  potiMi')! 

9981111  175  WITELNl'  I  «•  •iartinp  to  tort  your  rioiofllo*')! 

999  1 1 11  233  REAIMTTRFILEI 

1000  1 1 1 1  234  SORTATTRFILE ) 

1001  1111239  imiTELNl'  I  Ju«t  fini«ho4  Mriinq  tbo  utiribuUc' >  1 

10021111  299  READNEASFXLEI 

1003  1 1 1 1  302  SORTHEASFXLEl 

1004  1111309  NRXTELNl'  I  Ju«i  finished  sorting  tho  Mnsurcs')! 

1009  1 1 1 1  343  REAOCOREFXLE) 

1004  1111  344  SORTCOREFXLEl 

1007  1  111349  URXTELNl'  X  Just  finished  sorting  your  dotofiles')! 

10081  111429  OPCNDATAFILEI 

1009  1111432  OFCNISSUEINDEXS 

1010  1  1 1 1  439  OPENFASTISSUE  $ 

1011  1 1 1 1  438  8ETUSERSTUFF1 

10121111  440  TXTLEPAGEl 

10131111442  REPEAT 

1014  1  112  442  DISPLAYISSUESt 
1019  1  1 12  445  PROCESSISSUES 

1014  1  112  447  REPEAT 

1017  1  113  447  ECXHXNATE} 

1018  1  1 13  449  PRNTDATASETl 

1019  1113491  PREPKEY ( 359 f 'Would  you  like  to  renove  nore  perforoonce  itens  fron  your  printout?')! 

1020  1112524  UNTIL  <ANS«'N')  OR  <0RD<ANS>«27)! 

1021  1  112  539  PRCPKEY< 340 ('Would  you  like  to  process  onother  eeosureecnt  purpose?') 

1022  1  111599  UNTIL  <ANS«'N')  OR  (0RD(ANS>s27)! 

1023  1  111414  REWRITEIPRNT. 'PRINTER!')! 

1024  1  111  439  FOR  11*1  TO  10  PO 

1023  1  112452  NRITELN(PRNT,'ENP  OF  PRINTOUT  FOR  '(USERNANE)! 

1024  1  111714  PAGE(PRNT)! 

1027  1111  724  CLOSE(PRNT)! 

1028  1  1 1 1  733  8RANCHOUT! 

1029  1111739  SCTCNAINl 'GREETING')! 

1030  1110  749  ENP. 


BEGIN  is  the  main  program:  1)  sorts  attributes  and  measures,  2)  processes 
measurement  purposes,  3)  elimin«'’.lcs  unwanted  performance  items,  and  4)  prints 
wanted  performance  items. 


Pack  causes  the  performance  item,  attribute  and  measures  data  sets  to  be 
sorted  into  numerical  order  (according  to  statement  number).  It  also  moves 
unused  space  to  the  end  of  each  data  set  where  it  becomes  available  for 
use  with  subsequent  execution  of  the  PERFITEM  and  MEASATTR  programs. 


1 

1 

i:d 

1  («*L  printer:  •) 

2 

1 

i:o 

1  (USt*) 

3 

1 

i:ii 

1  (•  Proqroa  to  pocK  perforaonc*  iieact  oitribuivt  ond  aeosuret  lists  4) 

4 

1 

i:o 

1  (•  Ronold  G.  Shopiro  Varsion  2.0  10/2S/82t) 

S 

1 

i:o 

1  Proqroa  Pockdotosattsi 

6 

1 

i:d 

3 

7 

28 

i:d 

3 

8 

28 

2:d 

1  PROCEDURE  SETCHA1N(TYTLE:STRING); 

9 

28 

3:d 

1  PROCEDURE  SETCVAL(VAL:STRING); 

10 

28 

4iD 

1  PROCEDURE  GETCVAKVAR  VALiSTRING)) 

11 

28 

9:d 

1  PROCEDURE  SUAPONi 

12 

28 

4:d 

1  PROCEDURE  SUAPOFF; 

13 

28 

6SD 

1 

14 

1 

i:d 

1  Usas  CholnstufFi 

19 

1 

ItD 

3 

These  procedures  are  pari  of  the  Apple  Computer's  CMAINSTUFF  library  entry. 
The  demonstration  package  uses  only  SETCHAIN  which  causes  another  program 
to  be  activated. 


ISSUEFILE  contains  the  measurement  purposes.  PASSFILE  passes  information 
between  the  various  programs.  DATABASE  contains  the  performance  items. 
FILEATTRIBUTES  contains  the  attributes.  FILEMEASURES  contains  the  measures 
TEMPM,  TEMPA,  TEMPD  are  temporary  files  used  during  the  pack  procedure. 


58 

1 

i:d 

3 

5* 

1 

ISO 

3 

fASSNODESFILE  OF  MSSFILES 

40 

1 

ISO 

474 

OATANOOESFKE  OF  OATAOASES 

4t 

1 

i:d 

819 

COREFILESFILE  OF  INTEGEFlCSlS 

42 

1 

ISO 

1122 

ATTRIMITESSFZLE  OF  FlLEATTftlOUTESS 

43 

1 

ISO 

1443 

8TTRFILESF1LE  OF  1NTEGERC121( 

44 

1 

ISO 

1747 

MCASUflESSFILE  OF  FILEHEASURESS 

45 

1 

ISO 

2108 

NEASFILESFILE  OF  INTEGERC121; 

44 

1 

ISO 

2412 

ISSUESFILE  OF  ISSUEFILES 

47 

1 

ISO 

3470 

TENFNEASURESSFILE  OF  TEMFNS 

48 

1 

ISO 

3811 

tEHPATTRlOUTESSFlLE  OF  TENPAl 

48 

1 

ISO 

4152 

TEMFOATASFILE  OF  TEMPO! 

70 

1 

ISO 

4497 

71 

1 

ISO 

4497 

C0RESARRAYC1..300]  OF  1NTE6ERC81S 

72 

1 

ISO 

5397 

ATTRC0RESARRArC1..2O0}  OF  ll(TECERtl23S 

73 

1 

ISO 

4197 

NEASC0RESARRAYC1..4OO1  OF  lNTE6ERtl21S 

74 

1 

ISO 

7797 

SCRATCHSARRAY  Cl.. 203  OF  INTEGERS 

75 

1 

ISO 

7817 

ASPECT SARRAYCl.. 53  OF  STRINGC203S 

74 

1 

ISO 

7872 

IMSPECTSARRAYC1..S3  OF  INTEGER; 

77 

1 

ISO 

7877 

C0RE2SARRArZ1..3003  OF  INTEGER; 

78 

1 

ISO 

8177 

ATTR2 SARRAYCl.. 2003  OF  INTEGER; 

79 

1 

ISO 

8377 

MEAS2SARRAYC1..4003  OF  INTEGER; 

80 

1 

ISO 

8777 

PR1NT1TSARRAYC1..3003  OF  800LEANS 

81 

1 

ISO 

9077 

82 

1 

ISO 

9077 

XCHARAC,XFUNPUR,XOBJECT1VE.PAC,CSIRSYS,CURSP,CSJRSUOS  STRINGC803; 

83 

1 

ISO 

9344 

NCURNE ASURE .NCURATTRIOUTE.NCURl SSUE , NCH AR AC . 

84 

1 

ISO 

9344 

NFUNPUR(NOOJCCTIVC,NPAC.NCURSYS.NCURSP,NCURSUO:  INTECERS 

85 

1 

ISO 

9374 

84 

1 

ISO 

9374 

ISSUENAME , NAME ATCORE . NAHEATTRIOUTES , NANEHECORE « NANEHEASURES  S  STRINGC  403 ; 

87 

1 

ISO 

9479 

NAHETENPORARY ,CORENAHE , DAT ANAAE  S  STRI NGC  403  S 

88 

1 

ISO 

9542 

APHDSKSSTRINGtl03; 

89 

1 

ISO 

9546 

LCVCLt  STRINGC 103; 

90 

1 

ISO 

9554 

USERNAME , USERDATE  f  USERHSG  S  STRINGC  803  S 

91 

1 

ISO 

9477 

92 

1 

ISO 

9477 

TEHP,C0RELAST,Tl,T2tT3tT4,TSS  INTEGERCSIS 

93 

1 

ISO 

9498 

TEHPX  t  ATTRS.AST  .HEASLAST  S  INTEGERt  121 S 

94 

1 

ISO 

9710 

95 

1 

ISO 

9710 

NODE . INVERSE .HELP . NSCREEN  S INTEGER 1 

94 

1 

ISO 

9714 

NCORELAST .NATTRLAST , NHEaSLASTS INTEGER 1 

97 

1 

ISO 

9717 

NISSUES.NUISSUES.NATTRIBUTES.NMEASURES.NUMEASURESSINTEGER; 

These  strings,  arrays  and  variables  are  used  by  this  program 


See  previous  page  for  program  description. 


1  (««P«)PNOCEDUf)E  ANYKEYt 
0  KCIN 

0  minim  •  -it 

18  MinELN('*tt  Plvatt  prett  ony  K»y  to  continue  **«'){ 

re 

T8  KMiAMS); 

19  (MR4t) 

19  end; 


1?2 

1 

3:» 

1 

(nPOrROCEDURE  HELPER  1 

133 

1 

3:0 

0 

SECIN 

134 

1 

3:1 

0 

HRlTELNC'For  h«lp  pi****  r«r*r  to  your  APR  IMNUAL.'M 

I2S 

1 

3:0 

41 

ENOi 

124 

1 

3:0 

74 

HELPER  due  to  core  limitations,  it  was  not  possible  to  implement  the  full 
HELP  facility.  Thus,  this  HELPER  merely  displays  the  message. 


127 

1 

418 

1 

(*m>PR0CE8URE  KEYNI 

128 

1 

410 

1 

VMt 

129 

1 

410 

1 

ANSUER!  STRINGC403} 

130 

1 

410 

22 

111  ARRAYC1..4]  OF  INTEGER! 

131 

1 

418 

24 

0K1800LEANI 

132 

1 

418 

27 

1101 INTEGER! 

133 

1 

418 

28 

134 

1 

410 

0 

8EGIN 

139 

1 

410 

0 

(8«R-«) 

134 

1 

411 

0 

REPEAT 

137 

1 

412 

0 

REPEAT 

13B 

1 

413 

0 

ANSWER!-'  '! 

139 

1 

413 

27 

OKI-TRUE! 

140 

1 

413 

30 

REAOLNIANSNER)! 

141 

1 

413 

49 

IF  LENGTH  (ANSWER  1-0  TI€N 

142 

1 

414 

57 

HRITELNi'PlMM  Mt*r  ill*  integer  agoin')! 

143 

1 

412 

107 

UNTIL  LENGTH! ANSWER )<>0! 

144 

1 

412 

115 

IF  <ANSWERC11-'H')  OR  (ANSWERtll-'h' >  THEN 

145 

1 

413 

130 

HELPER! 

144 

1 

412 

132 

FOR  11-1  TO  4  80 

147 

1 

413 

147 

8EGIN 

148 

1 

414 

147 

ntn!-aRD(ANSHER[n)-4B! 

149 

1 

414 

145 

IF  (IICIKO)  OR  <IItll>9>  THEN 

ISO 

1 

415 

192 

8E0IN 

151 

1 

414 

192 

IF  <I-1)  OR  (lItll<>(0R8('  '>-4a>>  THEN 

152 

1 

417 

214 

OEGIN 

153 

1 

418 

214 

OKI-FALSE! 

154 

1 

418 

217 

WRITELN( 'PLEASE  RESPOND  WITH  A  POSITIVE  INTEGER')! 

155 

1 

417 

275 

END! 

154 

1 

415 

275 

END! 

157 

1 

413 

275 

END! 

198 

1 

411 

285 

UNTIL  OK-TRUE) 

159 

1 

411 

292 

1101-lICl}! 

140 

1 

411 

302 

FOR  11-2  TO  4  DO 

141 

1 

412 

317 

SEGIN 

142 

1 

413 

317 

IF  <IUn>-0)  AND  (IICl]<-9>  THEN 

143 

1 

414 

344 

iioi-iio«iotiicn! 

144 

1 

412 

341 

END! 

145 

1 

412 

371 

(8«R4t) 

144 

1 

411 

371 

ll-IIO! 

147 

1 

410 

374 

END! 

148 

1 

410 

398 

KEYN  reads  a  3  or  4  digit  response  from  the  keyboard  and  places  it  into  I.  If 
an  H  or  an  h  are  typed  in,  it  places  a  999  in  I  and  calls  the  HELP  routine.  If 
more  than  4  characters  are  typed,  only  4  characters  are  read.  The  rest  are 
ignored.  If  the  character(s)  are  not  positive  intergers,  KEYN  will  display  an 
appropriate  warning  and  wait  for  a  response. 


i 


(•tf»)PliOCEIIURE  KCrt 
VAR 

112: INTEGER) 
tEGIN 

ansuer:-'  '} 

REPEAT 

R£ADLN(ANS«£R) $ 

ANSt-ANSUERCll) 

IF  (ANSO'Y')  AND  (ANSO'N')  AND  (ANSO'HO  AND  (ANS<»')  ond 
lANSO'n')  AND  (ANSO'R')  AND  (0RD(ANS)<>27>THEN 
HRITELN( 'PLEASE  RESPOND  YES  OR  NO!')) 

IF  <0RD(ANS»90>  THEN 
KGIN 

lI2:>0RD(ANS)-32; 

ANS:«CHR(I12>i 

END) 

UNTIL  <ANS«'Y')  OR  (ANS>'N'>  OR  <ANS>'H')  OR  (0RD(ANS>«27>t 
(t«Rtt) 

IF  ANS^'H'  THEN 
HELPER) 

END) 


KEY  reads  a  letter  response  from  the  keyboard.  If  response  is  1)  y  or  Y,  it  places 
a  Y  in  ANS  and  returns  to  calling  procedure;  2)  n  or  N,  it  places  an  N  in  ANS 
and  returns  to  calling  procedure;  3)  h  or  H,  it  calls  the  HELP  routine,  places  an 
H  in  ANS  and  returns  to  calling  program;  or  4)  any  other  key— it  displays  PLEASE 
RESPOND  YES  OR  NO  and  awaits  a  Y,  N,  H,  y,  n  or  h  response.  NOTE:  Only 
the  first  character/line  is  processed.  The  rest  is  ignored. 


192 

1 

a:d 

1 

193 

1 

a:o 

0 

19A 

1 

6:i 

0 

195 

1 

«:i 

9 

I9A 

1 

*S2 

9 

197 

1 

6i2 

20 

190 

1 

A:t 

22 

199 

1 

a:o 

41 

200 

1 

«:o 

S4 

teciN 
help: ‘Hip; 

REPEAT 

nniTcmsot 

key; 

UNTIL  (ANS«‘T'>  OR  OR  (ORD(ANS)>27>; 

end: 


PHEPKEY  displays  a  message  then  calls  KEY  to  read  a  letter  response  from  the 
keyboard.  If  a  response  is  not  Y,  y,  N,  n.  Yes  or  No,  it  redisplays  the  message 
and,  once  again,  waits  for  a  response. 


I 


(«fM>niOCEDURE  inline; 

longline:string{;2Si; 
lineok: boolean; 

BEGIN 

REPEAT 

READLN(LONCLINE); 

lineokutrue; 

n:-lencth<longline); 

IF  H>80  THEN 
BEGIN 

HRITELN('««UARN1N6  LINE  CONTAINS  OVER  BO  CHARACTERS**'); 
NRITELNC' 

PREPKEYOy.'BO  YOU  NISH  TO  TRUNCATE  TO  BO  CHARACTERS?  '>; 
IF  ANS-'N'  THEN 
BEGIN 

LINEOKi -false; 

URITELNI 'PLEASE  TYPE  LINE  AGAIN:  '>! 

END 

ELSE 

h;-so) 

end; 

UNTIL  lineok; 

LINER : -COP Y ( LONGL INE . I tH > ; 

end; 


INLINE  accepts  up  to  80  characters  of  text.  If  more  than  80  characters  are 
specified,  it  asks  if  it  ought  to  ignore  additional  characters.  If  told  to,  it  does. 
Otherwise,  it  allows  analyst  to  re-enter  the  line. 


275 


228 

1 

818 

1 

IMPlirROCEDUKE  IRANCHINI 

228 

1 

810 

0 

8ECIN 

230 

1 

810 

0 

231 

1 

811 

0 

RESET (PASSNODE. 'PASSTHRU' >1 

232 

1 

811 

18 

l:>IORESULTi 

233 

1 

811 

23 

234 

1 

8:i 

23 

IF  ICO  THEN 

233 

1 

812 

30 

8EGIN 

234 

1 

813 

30 

URITELNl 'PASSTHRU  FILE  DOES  NOT  EXIST' >1 

237 

1 

813 

78 

HRlTELNl'  *m*«FATAL  ERROR*«((>«' )  I 

238 

1 

813 

123 

HRITELNI'  '>!); 

239 

1 

813 

147 

ANVKEYl 

240 

1 

813 

149 

6ETCHAlN('PGHl')t 

241 

1 

813 

179 

EXIT<PROGRAN)i 

242 

1 

812 

183 

END! 

243 

1 

811 

183 

CETlPASSNOOElt 

244 

1 

811 

190 

CURS  YS 1  ■PASSNOOE'' .  CURSYSI 

243 

1 

811 

198 

CURSP ! -PASSNODE* . CURSP 1 

244 

1 

811 

204 

CURSUB :  -PASSNODE'^  .CURSUB 1 

247 

1 

811 

214 

PAC:>PASSNODEA.PACt 

248 

1 

811 

220 

NCURSYS : -PASSNODE^ . NCURSYS 1 

249 

1 

811 

227 

NCURSPl-PASSNODE^.NCURSP; 

250 

1 

811 

234 

NCURSUB 1 «PASSNODE* . NCURSUB 1 

231 

1 

811 

241 

NPAC 1 ■PASSNODE* .NPACI 

232 

1 

811 

248 

aOSElPASSNOBE); 

233 

1 

810 

234 

end; 

234 

1 

810 

270 

BRANCHIN  gets  information  from  the  PASSTHRU  file  for  use  by  this  program 


2SS 

1 

9:d 

1 

(ttPOPROCEDURE  BRANCHOUT; 

2S6 

1 

7:0 

0 

BEGIN 

257 

1 

7:1 

0 

REWRITE  ( PASSNOBE  ,  'PASSTHRU' ) 

258 

1 

7:1 

20 

PASSNOIlE''.FLAGi:-i; 

257 

t 

7tl 

24 

PUTIPASSNOHE); 

260 

1 

711 

33 

CLOSE<PASSNODEiLOCK>t 

261 

1 

7t0 

41 

end; 

262 

1 

7:0 

54 

263 

1 

7:0 

54 

264 

1 

7t0 

54 

263 

1 

7:0 

54 

($•1  tSIUTlLITY.TEXTt) 

266 

1 

7:0 

54 

BRANCHOUT  loads  the  PASSTHRU  file  with  appropriate  data  for  use  by  called 
programs. 


2B2 

1 

11 :8 

1 

(ftrOPROCEDURE  OPENnEASURESFILE} 

283 

1 

iito 

0 

BEGIN 

284 

1 

11  :i 

0 

NNEASLASTtsOl 

2BS 

1 

ii:i 

4 

2B6 

1 

ii:i 

4 

RESET (HEASUftESrNANEMEASUKES) ; 

287 

1 

ii:i 

IS 

(Mitt) 

288 

1 

11  :i 

15 

ii-ioresult; 

289 

1 

ii:i 

20 

IF  100  THEN 

290 

1 

11:2 

27 

BEGIN 

291 

1 

11:3 

27 

llftITELN( 'There  is  no  neosuret  file  on  disk')! 

292 

1 

11:3 

80 

nheaslast:— i: 

293 

1 

11:2 

85 

end: 

294 

1 

11:1 

85 

CLOSE < HE ASURES ) : 

295 

1 

11:0 

94 

end: 

298 

1 

11:0 

104 

OPENiMEASURESFILE  checks  to  see  if  there  is  a  measures  file  on  disk. 


297 

1 

12:8 

1 

(••POPROCeOURE  RCAOATTRFILEI 

299 

1 

12:0 

0 

8C6IN 

299 

1 

1210 

0 

(•»l-8) 

300 

1 

1211 

0 

RESETCATTRFIU.NAHEATCORElt 

301 

1 

1211 

11 

IlalORESULTl 

302 

1 

12:0 

14 

303 

1 

1211 

14 

IF  100  THEN 

304 

1 

12:2 

23 

8ECIN 

30S 

1 

1213 

23 

REHR1TE(ATTRFILE.NAMEATC0RE> 1 

304 

1 

1213 

34 

FOR  11-1  TO  NATTRI8UTES  00 

307 

1 

12:4 

32 

BEGIN 

308 

1 

1213 

32 

ATTRCORECllt-01 

309 

1 

1213 

79 

ATTRFILE'^  1  >ATTRCOREC  I  J| 

310 

1 

12:3 

107 

PUriATTRFlLEll 

311 

1 

1213 

113 

IF  EOF(ATTRFILE)  THEN 

312 

1 

1214 

123 

8E01N 

313 

1 

1217 

123 

URITaN<'OUT  OF  DISK  SPACE' >1 

314 

1 

1217 

142 

ANYKEY 1 

31S 

1 

1214 

144 

ENO: 

314 

1 

1214 

144 

ENOl 

317 

1 

1213 

174 

ATTRLASTt>0| 

318 

1 

1213 

189 

NATTRLASTl-OI 

319 

1 

1213 

193 

ATTRFlLE*:«ATTRLASTt 

320 

1 

1213 

209 

PUT(ATTRFlLE)t 

321 

1 

1213 

217 

CLOSC(ATTRFILE.LOCK)| 

322 

1 

12:2 

224 

ENO 

323 

1 

12:1 

224 

ELSE 

324 

1 

1212 

228 

BEGIN 

323 

1 

1213 

228 

FOR  I 1-1  TO  NATTRIBUTES  BO 

324 

1 

1214 

244 

BEGIN 

327 

1 

1213 

244 

GETIATTRFILEII 

328 

1 

1213 

232 

ATTRCORECl  3  l-ATTRFILE'^l 

329 

1 

1214 

280 

ENO; 

330 

1 

1213 

290 

GETtArrRFILEi; 

331 

1 

1213 

298 

ATTRLA8T! -ATTRFILE*! 

332 

1 

1213 

314 

NATTRLAST 1 -TRUNC<  ATTRLAST  > 1 

333 

1 

1213 

327 

CLOSE (ATTRFILE)! 

334 

1 

1212 

334 

ENB! 

333 

1 

1210 

334 

ENO! 

334 

1 

1210 

334 

READATTRFILE  reads  the  index  to  the  attributes  file  from  the  disk  file 
ATTRFILE  and  places  it  into  the  array  ATTRCORE. 


± 


337 

1 

1310 

1 

338 

1 

1310 

0 

339 

1 

1310 

0 

340 

1 

1311 

0 

341 

1 

1311 

11 

342 

1 

1310 

14 

343 

1 

1311 

14 

344 

1 

1312 

23 

345 

1 

1313 

23 

344 

1 

1313 

34 

347 

1 

1314 

52 

348 

1 

1315 

52 

349 

1 

1315 

79 

350 

1 

1315 

107 

351 

1 

1315 

115 

352 

1 

1314 

125 

353 

1 

1317 

125 

354 

1 

1317 

142 

355 

1 

1314 

144 

354 

1 

1314 

144 

357 

1 

1313 

174 

358 

1 

1313 

189 

359 

1 

1313 

193 

340 

1 

1313 

209 

341 

1 

1313 

217 

342 

1 

1312 

224 

343 

1 

1311 

224 

344 

t 

1312 

228 

345 

1 

1313 

228 

344 

1 

1314 

244 

347 

1 

1315 

244 

348 

1 

1315 

252 

349 

1 

1314 

280 

370 

1 

1313 

290 

371 

1 

1313 

298 

372 

1 

1313 

314 

373 

1 

1313 

327 

374 

1 

1312 

334 

375 

1 

1310 

334 

374 

1 

1310 

354 

K61N 

RESET (MEASriLE  >  NANEHECORE ) I 
i:-10RESULT| 

IF  I<>0  THEN 
REGIH 

REHRlTE(HEASFlLE,NAHEHECORE>i 
FOR  i:-l  TO  NHEASURES  DO 
•COIN 

HEASCORECnt-OS 
MCASF ILE« : -NE ASCOREC I )l 
PUT ( HE ASF I LE)} 

IF  EOF(NEASFILE)  THEN 
•COIN 

MRlTELNi'OUT  OF  DISK  SPACE' >{ 
ANYKEY ( 

end; 

end; 

NCASLAST:>Ot 

nhcaslast:«o; 

ncasfile*:-heaslast; 

PUT(HEASF1LC)| 

CLOSEiHEASFlLE.LOCK) { 

END 

asE 

lEGIN 

FOR  l:-l  TO  NHEASURES  DO 
•ECIN 

OCT(HEASFILE)t 

NCASCORECnS-HEASFIU*} 

ENDt 

OCT<nEASFILE)t 

HEASLASTt-HEASFtLE*) 

NHEASLA8T : >TRUNC ( HEASLAST  > ) 
aOSE<HCASFlLE)( 

end; 

end; 


READMEASFILE  reads  the  index  to  the  measures  file  from  the  disk  file  MEASFILE 
and  places  it  into  the  array  MEASCORE. 
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377 

1 

1418 

1 

(tmiPROCEDURE  CLOSECOItenLEl 

378 

1 

1410 

0 

OCGIN 

379 

1 

1411 

0 

RESET ( COKCF ILE . CORENANE 1 } 

380 

1 

1411 

13 

FOR  11>1  TO  300  DO 

381 

1 

1412 

29 

8E81N 

382 

1 

1413 

29 

COREFILE^l-CORECni 

383 

1 

1413 

57 

PUT < COREFILE It 

384 

1 

1412 

45 

ENDt 

389 

1 

1411 

79 

CORELAST 1 -NCOREL AST  t 

384 

1 

1411 

92 

COREFILE* !>CORELAST| 

387 

1 

1411 

108 

PUT<COREFILE)i 

388 

1 

1411 

114 

CLOSE (COREFILElt 

389 

1 

1410 

125 

ENDt 

390 

1 

1410 

140 

CLOSECOREFILE  copies  the  index  to  the  performance  items  from  the  array 
core  to  the  disk  file  COREFILE. 


391 

1 

is:d 

1 

(MPOPROCeOURC  aOSEATTKFlLCt 

392 

1 

is:o 

0 

seoiN 

393 

1 

isn 

0 

RESCT<ATTRFILE,IMNeATa}aC){ 

394 

1 

is:i 

13 

FOR  i:-l  TO  NATTR18UTES  DO 

39S 

1 

is:2 

29 

DE6IN 

394 

1 

is:3 

29 

ATTRFILE*:-ATTRC0REtI3} 

397 

1 

15:3 

57 

PUTIATTRFILOI 

398 

1 

1512 

45 

end; 

399 

1 

ts:i 

75 

ATTRLAST : -NATTRL AST 1 

400 

1 

IStl 

92 

ATTRFILE^taATTRLASr; 

401 

1 

is:i 

108 

niT(ATTRFILE); 

402 

1 

is:i 

114 

CLOSE(ATTRFlLE)t 

403 

1 

IS.’O 

125 

end; 

404 

1 

1510 

140 

CLOSEATTRFILE  copies  the  index  to  the  attribute  file  from  the  array  ATTRCORE 
to  the  disk  file  ATTRFILE. 


405 

1 

Ull 

1 

(MMlMtOCEDURE  CLOSEHEASFILE; 

404 

1 

u:o 

0 

8EGIN 

407 

I 

u:i 

0 

RESET ( HEASriLE .NAHEHECOftE) t 

408 

1 

u:i 

13 

FOR  I!-l  TO  NNEASURES  M 

409 

1 

U!2 

29 

BEGIN 

410 

1 

u:3 

29 

HERSF ILE* : -NEASCOREC I 31 

411 

1 

1413 

57 

PUT(HEASFILE)t 

412 

1 

1412 

45 

end: 

413 

1 

14il 

75 

HEASLAST i <NHEASL AST ( 

414 

1 

14: 1 

92 

HEASF ILE* : -HEASLAST  t 

415 

1 

i4:i 

108 

m<HEASFlLE)t 

4U 

1 

1411 

114 

close: HEASFILE)! 

417 

1 

i4:o 

125 

END! 

418 

1 

i4:o 

140 

CLOSEMEASFILE  copies  the  index  to  the  measures  file  from  the  array  MEASCORE 
to  the  disk  file  MEASFILE. 


419 

1 

i7:d 

1 

(8«F»  PKOCEOURE  OfCMIATAFlLEl 

420 

1 

1710 

0 

8E6IN 

n 

1711 

0 

NCORELASTl-Ot 

11 

1711 

4 

(••1-9) 

II 

17:1 

4 

KSET  ( MT  ANODE  t  OAT  ANAHE  >  1 

H 

1711 

IS 

42S 

1 

1711 

15 

ll-IOKESULTI 

424 

1 

1711 

20 

IF  lOO  THEN 

427 

1 

1712 

27 

8E61N 

428 

1 

1713 

27 

HHITELNC 'There  is  no  oerforoonce  iieos  file  on  disR'lt 

429 

1 

1713 

89 

NCORELASTl*-lt 

430 

1 

1712 

94 

ENOI 

431 

1 

1711 

94 

aOSElDATANOOEX 

432 

1 

1710 

103 

END! 

433 

1 

1710 

lU 

OPENDATAFILE  determines  whether  there  are  any  performance  items  on  the  disk 


434 

1 

taiD 

1 

(••OtlPROCEOUKC  KFINCASPECfft 

43S 

1 

tsso 

0 

BEGIN 

434 

1 

1811 

0 

ASPECTIll.'-'PotMtUlittM'l 

437 

1 

1811 

30 

ASPECT!  21 ‘ProcMM* ' t 

438 

1 

18: 1 

ss 

ASPECTI3l:«'Pra4uct»‘; 

43f 

1 

18: 1 

70 

ASPECTC4]:-‘EAviraAMAt‘l 

440 

1 

i8:i 

104 

ASPECTC5i:>'Con«tr«inU‘t 

441 

1 

I8:i 

133 

NASPECTCli:-lt 

442 

1 

I8:i 

144 

NASPECTC2]:-2I 

443 

1 

I8:i 

159 

NASPECT[31!>3t 

444 

1 

I8:i 

172 

NASPECTC4i:-4t 

44S 

1 

I8:i 

185 

NASPECTCSi:«5t 

444 

1 

i8:o 

198 

ENOI 

447 

1 

1810 

210 

DEFINE  ASPECTS  tells  computer  the  name  assigned  to  each  of  the  aspects. 


448 

1 

19:8 

1 

(•(T’tlPROCEOURE  HEADCOKFILEI 

449 

1 

19!0 

0 

8EG1N 

450 

1 

i9:o 

0 

<«•!-«> 

451 

1 

I9:i 

0 

RESET(C0REF1LE,C0REN4ME)1 

452 

1 

1911 

11 

IX-lORESULTl 

453 

1 

19X1 

14 

<89148) 

454 

1 

I9:i 

14 

IF  lOO  THEN 

455 

1 

19X2 

23 

•E61N 

454 

1 

19X3 

23 
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END 
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END 
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DEGIN 
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END! 
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READCOREFILE  copies  performance  items  from  the  disk  file  DATANODE  to  the 
CORE  file. 
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SORTATTRFILE  forms  an  array  ATTR2  which  contains  a  sorted  permutation 
vecyor  referencing  the  attributes  file  [sorted  by  numerical  value  of  the  index]-- 
sort  attributes  index  into  assending  numerical  order. 
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END 
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SORTMEASFILE  forms  an  array  MEAS2  which  contains  a  sorted  permutation 
vector  referencing  the  measures  file— sort  measures  index  into  ascending 
numerical  order. 
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END 
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UNTIL  ONCORELAST} 

550 

1 

22:0 

313 

END} 
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332 

SORTCOREFILE  forms  an  array  CORE2  which  contains  a  sorted  permutation 
vector  referencing  the  core  file. 
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577 
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219 
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263 

589 
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280 

BEGIN 

KESET<  ATTRIBUTES i NAHEATTRI BUTES  >  j 
REWRITE  ( TEHPATTRIBUTES.NAMETEHF'ORARY  >  t 
IF  lORESULTOO  THEN 
BEGIN 

URITELNt'PROBLEN  CREATING  TENPORARY  DATASET' >t 

anykey; 

end; 

FOR  i:>l  TO  NATTRLAST  DO 
BEGIN 

SECK<ATTRIBUTES,ATTR2C1I); 

GET( ATTRIBUTES); 

SEEK  <  TEHPATTRIBUTES, I >  t 
TEHPATTRI BUTES*  t -ATTRIBUTES* ; 

PU1 (TEHPATTRIBUTES); 

end: 

FOR  i:-I  TO  NATTRLAST  DO 
BEGIN 

SEEK ( TEHPATTRIBUTES, I ) ; 

GEKTEHPATTRIBUTCS); 

SEEK<ATTRIBUTCS,I); 

ATTRIBUTES*  J -TEHPATTRIBUTES*; 

PUT< ATTRIBUTES); 

end; 

CLOSE(ATTRIBUTES): 

CLOSE ( TEHPATTRIBUTES ) : 

end; 


COPY  ATTRIBUTES  copies  the  attributes  file  from  the  disk  file  to  the  temporary 
storage  disk  [sorting  attributes  into  numerical  order]  and  temporary  disk  back  to  the 
usual  storage  disk. 
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(«9P«)F>R0CE0URE  COPYHEASURESt 

S91 
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24:0 
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8E6IN 

592 
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0 

RESETdlEASUREStNAHEHEASURES)} 

593 
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13 

REHRITE(TENPHEASURES(NANETEHPORARY> } 

594 
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24: 1 

26 

IF  lORESULTOO  THEN 

595 
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24:2 

32 

BEGIN 

594 

1 

24:3 

32 

HRITELNI 'PROBLEM  CREATING  TEMPORARY  DATASET')! 

597 

1 

24:3 

86 

ANYKEY! 

598 

1 

24:2 

88 

END! 

599 
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24:i 

88 

FOR  It«l  TO  NHEASLAST  00 

600 
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24:2 

104 

BEGIN 

601 

1 

24:3 
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SEEK ( MEASURES , HE AS2C I 3 ) ! 
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1 

24:3 

128 

OETiHEASURES) ! 

603 

1 

24:3 

136 

SEEK! TEHPHEASURES. I > ! 

604 

1 

24:3 

147 

TEHPHEASURES* !  «HE  ASURES'^ ! 

60S 

1 

2413 

155 

PUT(TEHPHEASURES)! 

606 

1 

24:2 

163 

END! 

607 

1 

24: 1 

173 

FOR  i:-l  TO  NHEASLAST  DO 

608 

1 

24:2 

189 

BEGIN 

609 

1 

24:3 

189 

SEEK<TEHPHEASURES.l)! 

610 

1 

24:3 

200 

6ET(TENPHEASURES)! 

611 

1 

24:3 
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'  SEEK<HEASURESfl)! 

612 

1 

2413 

219 

MEASURES'^ :  -TEHPHEASURES* ! 

613 

1 

24:3 

227 

PUT (MEASURES)! 

614 

1 

24:2 

235 

END! 

615 

1 

24:1 

245 

CLOSE < MEASURES ) ! 

616 

1 

24: 1 

254 

CLOSE  <  TEHPHE ASURES ) ! 

617 

1 

24:0 

263 

END! 

618 

1 

24:0 

280 

COPYMEASURES  copies  the  measures  file  from  the  disk  file  to  the  temporary 
storage  disk  [sorting  measures  into  numeric  order  ]  and  copying  the  items  from 
the  temporary  disk  back  to  the  usual  storage  disk. 


COPYCORE  copies  the  core  file  from  the  disk  file  to  the  temporary  storage 
disk  [sorting  items  into  numeric  order]  and  copying  the  items  from  the  temporary 
disk  back  to  the  usual  storage  disk. 


648  I  34:0  1  <*«P«>PROCEUJf)C  ftEHOVEATTRlBUTESt 

649  t  26t0  0  BEGIN 

650  1  2611  0  SEEK! ATTRIBUTES. J) I 

651  1  2611  11  FOR  L:>1  TO  6  00 

652  1  2612  25  ATTRIBUTES*. NOESCRIPTORCLII-Ol 

653  1  2611  50  ATTR1BUTES*.0ESCR1PT0R:-''| 

654  1  2611  60  PUT< ATTRIBUTES); 

655  1  2611  6B  ATTRCORECJIKO; 

656  1  2610  95  ENOI 

657  1  26:0  110 


REMOVEATTRIBUTES  removes  an  attribute  from  attributes  file. 
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SEEK<HEASURESiJ)l 

66i 

1 

77tt 

11 

FOR  l:«i  to  a  M 

667 

1 

7712 

3S 
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END! 
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REMOVEMEASURES  removes  a  measure  from  measures  file, 
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REMOVHDATA  removes  a  performance  item  from  data  file, 
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EXf TICOHPACTATTRIOUTES) I 

*97 

1 

2914 

151 

EM} 

*90 

1 

2912 

151 

UNTIL  ATTRCOREtlFNSOO} 

*99 

1 

2912 

105 

ATTRCOREC 1 1 1 -ATTRCOREC 14H1 } 

700 

1 

2912 

229 
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EM} 
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COMPACTATTRIBUTES  packs  attribute  data  set  so  that  all  blank  entries  are 
pushed  to  the  end  of  the  data  set. 
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COMPACTMEASURES  packs  measures  data  set  more  efficiently  so  that  all 
blank  entries  are  pushed  to  the  end  of  the  data  set. 
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773 

1 

3112 

298 

SEEM  DAT  AN0DE,1>1 

774 

1 

3112 

247 

PUTIDATANODE)} 

779 

1 

3111 

277 

UNTIL  >NC0RELAST1 

774 

1 

3111 

284 

11-1411 

777 

1 

3111 

274 

FOR  Jl-1  TO  NCORELAST  DO 

778 

1 

3112 

312 

RE80VEOATA1 

777 

1 

3111 

324 

NCORELAST 1 -NCORELAST-81 

780 

1 

3111 

334 

aoSEi  DAT  ANODE)} 

781 

I 

3110 

343 

ENBl 

782 

1 

3110 

344 

COMPACTCORE  packs  performance  item  data  set  more  efficiently  so  that  all 
blank  entries  are  pushed  to  the  end  of  the  data  set. 


7S3  I  32:0  t  <«*Pt»pitoceouRe  DONort 

784  1  32:0  8  BEGIN 

783  1  32tl  0  imiTELN<'  This  fit*  coniaint  lata  than  2  itaMt  thwa  it  will  not  ha  packa8')| 

784  1  32:0  M  END} 

787  1  3214  48 


DONOT  displays  warning  message  that  file  will  not  be  packed, 


PROPERUTILDISK  checks  to  be  sure  APMUTL  (the  disk  used  for  temporary 
storage)  is  in  Drive  #1. 
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808 

1 

3411 

0 

(Ml-8) 

809 

1 

3412 

0 

RESET (TENPDATA, ' APHSTS! TEMPORARY' >} 

810 

t 

3412 

27 

ISI 

1 

3412 

27 

Kl-lORESULTt 

1 

3412 

32 

IF  K-0  THEN 

iiti 

1 

3413 

39 

CLOSE (TEMPDATA)i 

1  814 

1 

3412 

48 

IF  K-9  THEN 

Km 

1 

3413 

SS 

BEGIN 

810 

1 

3414 

SS 

HRITELNl'PlMM  pl«c«  tiM  APH  SYSTEM  ditk  in  driv*  8  1')) 

817 

1 

3414 

120 

ANYKEY) 

818 

1 

3413 

122 

ENB) 

819 

1 

3411 

122 

UNTIL  K09) 

820 

1 

3410 

129 

ENB) 

821 

1 

3410 

144 

PROPERMAINDISK  checks  to  be  sure  the  APYSYS  disk  has  been  returned  to 
Drive  #1  before  returning  to  select  a  different  analytic  procedure. 


823  1  3S:D  1  (••P8)PmXXllU8E  ASSIGNNANESi 

823  1  3S:0  0  K61N 

824  t3S:t  9  M>NOSKt-CONC8T(COPV(CURSYS.l»2).COPy<CU(tSP.1.2>,COrV(CURSU8.1>2>.':'); 

829  1  3SU  96  IMHETENrOIMRY:-CONCAT('APmiTL:TENPORARY')) 

83«13S!1121  NMIEATC0RE:-C0NCAT(M>N0SKi(C0PY<CURSYS.1.4)),C0PY(CURSPtlf4),(C0PY(CURSU8.1,4)).'AC')| 

827  1  3Stl217  NMCATTRI8UTE8t-CONCAT(APHDSKt(COI>Y<CU8SY8.1,4>)iCOPY(CWISP,l(4)>(COPY(CU8SU8.1.4)). 

'ATM» 

838  t3S:t313  NAMEHEC(KtE!>CONCAT(APHOSK.(COPY<C(ffiSYS.1.4)),C08Y(CURSP,l,4)>(COPY(CURSU8.1.4)),'M:'>} 

82V13S:i407  NANEHEASUftE8i>C0NCAT<Ani08K,(C0PY<CURSYS.1.4>>,C0PY(CURS8,l>4>.(C0PY(CURSU8.1.4>), 

'»IE')| 

830  1  3S:tS0S  C0ftENAHE:>C0NCATIAf>H0SK,(CWY<CURSYS,lt4»>C08Y(amsr>1.4>,(C0PY(CURSU8.1.4)>>'C0')| 

831 13S:i401  DATA«MHE:«C0NCAT(APHDSK.(C0PY<CUKSYS,lt4>),C0PY(CUit8l>,lf4>,(CM>Y(CU8SU8.1.4>>.'FI'>| 

83213S:t497  ISSUENANE:-C0NCAT(APHIISK.<Caf>Y<CURSYSat4>)»C0PY(CURSP,l,4>.(C0PY(CURSU8>l,4)).'lS')« 

833  1  35:0793  END? 

834  135:0804 


ASSIGNNAMES  determines  file  names  based  upon  system  class,  system  and 
subsystem  names. 


I 


83S 

1 

i:o 

0 

(MMIBEGIN 

83A 

1 

i:o 

0 

837 

1 

in 

0 

PMECOUTPUT); 

838 

1 

in 

141 

MMNCHlNt 

839 

1 

in 

143 

PROPEKUTLOlSKt 

840 

1 

in 

145 

VRlTELNt'l  oa  goinf  to  tori  Md  pock  all  doio  Mtt>  but  I  ••  clout 'tcbr(  13) 

841 

1 

in 

224 

'  CO  ploQM  toko  •  coffM  brook  oi  thic  tiao'tChr(13)»chrn3)>t 

842 

1 

in 

309 

NIS$UESt>St 

843 

1 

in 

313 

NNEA8URESt-4001 

844 

1 

in 

319 

IMTTRlMITE8t-200| 

84S 

1 

in 

32S 

844 

1 

in 

32S 

ASSlGNNAHESt 

847 

1 

in 

327 

848 

1 

in 

327 

IMITELNi'Proeaccing  ottributoc')} 

849 

1 

in 

348 

OPCNATTKIMTESFILE} 

8S0 

1 

in 

370 

IF  NATTRL4STO-1  THEN 

8S1 

1 

lt2 

378 

K61N 

852 

1 

1!3 

378 

READ4TTRF1LES 

853 

1 

113 

380 

IF  NATTRLAST72  THEN 

854 

1 

114 

387 

8E6IN 

855 

1 

Its 

387 

CONPACTATTRIBUTESt 

854 

1 

Its 

389 

SORTATTRFILEI 

857 

1 

Its 

391 

COPYATTRIBUTESl 

858 

1 

Its 

393 

CLOSEATTRFILEl 

859 

1 

lt4 

39S 

END 

840 

1 

lt3 

395 

ELSE 

841 

1 

lt4 

397 

OONOTl 

842 

1 

112 

399 

END} 

843 

1 

112 

399 

844 

1 

Itl 

399 

URITELNt'Prococcing  aoocuroc')! 

845 

1 

Itl 

438 

openheasuresfile; 

844 

1 

in 

440 

IF  NNEASLASTO'l  THEN 

847 

1 

112 

448 

•ECIN 

848 

1 

Its 

448 

RCADHEASFILE} 

849 

1 

1:3 

4S0 

IF  NnEAStAST>2  THEN 

870 

1 

114 

4S7 

BEGIN 

871 

1 

ns 

4S7 

CONPACTHEASURES; 

872 

1 

ns 

459 

SORTHEASFILEt 

873 

1 

ns 

441 

COPTNEASURES; 

874 

1 

ns 

443 

CLOSEHEASFILEI 

Main  Program:  Governs  overall  packing  and  sorting  of  attributes,  measures 
and  performance  items. 


873 

1 

114 

463 

END 

876 

1 

113 

463 

ELSE 

877 

1 

114 

467 

donot: 

878 

1 

i:2 

469 

ENDt 

87? 

1 

112 

469 

880 

1 

111 

469 

URITELNt 'Procatdnq  parforMAc*  itMs'll 

881 

1 

111 

317 

OPENDATAFILEi 

882 

1 

t;i 

319 

IF  NCORELASTO-1  THEN 

883 

1 

1:2 

527 

DEGIN 

884 

1 

Its 

327 

READCOREFILEt 

883 

1 

1:3 

329 

IF  NC0RELAST>2  THEN 

886 

1 

114 

336 

BEGIN 

887 

1 

Its 

336 

CONPACTCOREI 

888 

1 

Its 

338 

SORTCOREFILEI 

889 

1 

Its 

340 

copycore: 

890 

1 

Its 

542 

CLOSECOREFILEt 

891 

1 

lt4 

344 

END 

892 

1 

Its 

344 

ELSE 

893 

1 

114 

346 

DONOT 1 

894 

1 

lt2 

348 

ENDl 

893 

1 

112 

348 

896 

1 

Itl 

348 

URlTELN(chr(13>t'D«ia  ••t*  or*  pock6d  And  •ortAd'tchr(13>tChr(13>f 

897 

1 

Itl 

621 

'••••so  long  for  non'); 

898 

1 

Itl 

660 

899 

1 

Itl 

660 

PROPERHAINDISKt 

900 

1 

111 

662 

901 

1 

111 

662 

DRANCHOUTl 

902 

1 

Itl 

664 

903 

1 

Itl 

664 

SETCHAINI 'GREETING')! 

904 

1 

Itl 

678 

903 

1 

ito 

678 

ENO^ 

CNP 


Two  of  the  programs  in  this  system  are  present  on  the  BOOT  disk.  They  ask 
the  analyst  to  set  up  the  APM  System  disk.  The  remaining  programs  in  this 
section  are  not  actually  part  of  the  APM  Demonstration  Package.  They  are 
used  to  prepare  data  sets  for  use  with  the  APM  System. 


SYSTEMPOINTSARTUP  is  present  on  the  Boot  disk.  It  simply  tells  the  analyst 
when  it  is  time  to  set  up  the  APM  System  disk  and  press  a  key  to  continue. 
When  the  disk  is  set  up,  it  transfers  control  to  the  GREETING  program. 


■  vupj^.  vjwu*  sri  jjv  m  ^  kvj 


1 

1 

i:d 

1  (ML  printer:*) 

2 

1 

ItD 

1 

(*6REETSH0RT  TELLS  THE  ANALYST  TO  PLACE  THE  REAL  APN  STSTEH  RISK  IN  PR1VE«1«> 

3 

1 

liO 

1 

(•RONALD  6.  SHAPIRO  V  2.0  10/17/82*) 

4 

1 

i:d 

1 

S 

1 

IIP 

1 

PR06RAH  greeting; 

A 

28 

i:d 

3 

7 

28 

218 

1 

PROCEDURE  setchain(tytle:string>; 

8 

28 

3:d 

1 

PROCEDURE  SETCVAL(VAL:STRIN6): 

9 

28 

4:d 

1 

PROCEDURE  GETCVAL(VAR  VAL (STRING),* 

to 

28 

s:d 

1 

PROCEDURE  SHAPON; 

11 

28 

6:d 

1 

PROCEDURE  suapoff; 

12 

28 

6:o 

1 

13 

1 

i:d 

1 

USES  chainstuff; 

14 

1 

ISO 

3 

VAR 

IS 

1 

i:d 

3 

x:char; 

16 

1 

i:o 

0 

degin 

17 

1 

i:i 

0 

PAGE (OUTPUT); 

18 

1 

i:i 

IS 

NRITELN(*PlM«e  interi  ih»  APH  SYSTEH  DISK  in  drive  0  1'); 

17 

1 

i:i 

81 

MRITELN('  Then  pree*  ony  key  to  continue'); 

20 

1 

i:i 

133 

(**I-*) 

21 

1 

i:i 

133 

READ<X); 

22 

1 

i:i 

141 

(*«It*) 

23 

1 

i:i 

141 

SETCHA1N( 'GREETING'); 

24 

1 

i:i 

ISS 

EXIKPROGRAH)) 

2S 

1 

i:o 

ISO 

END. 

GREETSHORT— If  the  analyst  fails  to  set  up  the  system  disk,  tlien  the 
GREETSHORT  program  is  executed.  It,  once  again,  asks  the  analyst  to  set 
up  the  system  disk  and  press  a  key.  The  only  ways  to  exit  from  this  program 
are  to  set  up  the  system  disk,  press  Control  Reset  or  turn  the  computer  off. 


V.-- 

V.'. 
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m 


1 

1 

118 

1  (ML  raiNTEll  8> 

2 

1 

111 

1  PROOIMN  ■LKKlNSTRUCTlOmt 

3 

1 

111 

3  ItOroqrM  to  toko  tout  intirociioo*  fllo  on4  convort  It  to  blockod  inotr  flloO) 

4 

1 

111 

3  <0  Aftor  oOitlof  fllot  X  DtOCKtNSrR.  At  Uio  floco  this  disk  ink) 

S 

1 

111 

3  <8  Irivo  01  and  ploco  tbo  AfH  UTIL  disk  in  Drivo  02.  Press  ony  koy.k) 

* 

1 

111 

3  Ik  Hi thin  •  foH  oinutost  kilos  will  bo  blocked. k> 

7 

1 

111 

3  IkNotol 

• 

1 

111 

3  Eoch  frsoo  ok  text  oust  bo  oxoctly  20  linos  long  in  the  text  kilolk) 

♦ 

1 

111 

3  IkRonsld  6.  Shspiro  V2.0  10/23/820) 

10 

1 

111 

3 

11 

1 

111 

3  TYPE 

12 

1 

111 

3  INSTRFILE-RECORD 

13 

1 

IID 

3  LINEIAWMTC1..20]  OF  STR1NGC80); 

14 

1 

111 

3  END) 

IS 

1 

111 

3 

14 

1 

111 

3  VAIt 

17 

1 

111 

3  INSTFILEIFILE  OF  INSTRFlLEt 

18 

1 

IID 

1123  ORIGINSTITEXT) 

10 

1 

IID 

1424  I.J.K.L.N.NIINTEGER) 

20 

1 

IID 

1430  L1NEISTR1NGC80)) 

21 

1 

111 

1471  AlCHAfI) 

22 

1 

IID 

1472 

23 

1 

110 

0  KOIN 

24 

1 

111 

0  uritolnl 'press  sny  key  to  begin')) 

23 

1 

111 

48  resdis)) 

24 

1 

111 

70  REWlTEIlNSTFILEt'opnutll INSTRUCT')) 

27 

1 

111 

104  SEEkllNSTFILE.l)) 

28 

1 

111 

114  PUTIINSTFILE)) 

20 

1 

111 

121  CLOSE (INSTFILE .LOCK)) 

30 

1 

111 

120  RESET! INSTFILE, 'opnutl 1 INSTRUCT' )) 

31 

1 

111 

134  RESETiORIGlNST. 'opnpg4l INSTR.TEXT' ) ) 

32 

1 

111 

184 

33 

1 

111 

184  JIM) 

34 

1 

111 

100  REPEAT 

3S 

1 

112 

100  Ji>J41t 

34 

1 

112 

108  FOR  II«I  TO  20  DO 

37 

1 

113 

213  DEGIN 

38 

1 

113 

213  <kSR-k) 

30 

1 

113 

213  <kSI-k) 

40 

1 

114 

213  REAOLN(ORIGINST,LINC)) 

41 

1 

114 

231  URITELN(LINE)) 

42 

1 

114 

247  (kSltl) 

43 

1 

114 

247  (kSRik) 

44 

1 

114 

247  INSTF1LE''.LINE[I]!>LINE) 

43 

1 

113 

243  END) 

44 

1 

112 

273  SEEKdNSTFlLE.J)) 

47 

1 

112 

283  PUT(INSTFILE)) 

48 

1 

111 

200  UNTIL  EOF(ORIGINST); 

40 

1 

no 

300  END. 

BLOCKINSTR— Blocks  the  instruction  data  set  for  use  with  the  APM  package. 
By  using  a  blocked  data  set,  processing  is  speeded. 


(•«.  PltlNTERt  t) 

(tfregr**  to  toko  tOMt  holp  filo  and  coiivort  it  to  blocked  help  filed) 

(t  After  editind  file.  X  ILOCKNELf.  At  the  pouee.  piece  this  dia  ied) 
(d  Drive  #1  end  piece  the  AMt  UTIL  diek  in  Drive  d2>  freee  eny  key>t> 

(d  the  fileneoee  erei  d4iHelpl«teKtt  #4tHelp2.texti  d4:Help3«teKt  or.d) 
(d  yo«  eey  eee  the  DRICFHELP  filee  ineteedd) 

(d  Mithin  e  few  oinutee.  filee  will  be  blocked.d) 
idNoUt 

Each  freee  of  tent  wiet  be  ewectly  10  linee  loop  in  the  tent  filefd) 
(dKoneld  e.  Shapiro  V2.0  10/2S/82d) 


10 

1 

ItD 

1  (dKoneld  8.  Shapiro 

11 

1 

ItD 

1  PMSIMN  DLOCKHELPt 

12 

1 

IID 

3 

13 

1 

ItD 

3  TYfC 

14 

1 

liD 

3  HELPAFIU-RECORD 

19 

1 

ItD 

3  LINE tAtWAVtl..  101  OF  STRINOCt 

Id 

1 

ItD 

3  END) 

17 

1 

ItD 

3 

18 

1 

ItD 

3  VAR 

Id 

1 

ItD 

3  NELFFlLEtFlLE  OF  HELPRFILEt 

20 

1 

ItD 

713  ORlGHELPtTEXTt 

31 

1 

ItD 

1014  l.J.K.L.N.NtINTEOERI 

33 

1 

ItD 

1020  LlNEtSTRlNGtSOlt 

23 

1 

IID 

lOdt  FfLENANEt  STRINOCOOlt 

24 

1 

ItD 

1102  AtCMARi 

39 

1 

ItD 

1103 

3d 

1 

ito 

0  KOIN 

27 

1 

Itl 

0  MRITELN<'Fewee~aet  «p  diake- 

38 

1 

ill 

87  REAOLNt 

39 

1 

ill 

99  JinOt 

30 

1 

Itl 

99  REHRlTE(NaFFlLE.'d9tNELF')i 

31 

1 

Itl 

118  aOSE<NELFFlLE.PUROE)t 

33 

1 

Itl 

12d  REMRnE(NELFFlLE.'d9tNELP')t 

33 

1 

Itl 

149  SEEKtNELFFlLE.Dt 

34 

1 

111 

193  fUTIHELFFILEX 

39 

1 

Itl 

IdO  aOSEOCLFFILE.LOCIOt 

3d 

1 

111 

td8  RE8ET(NELFFlLE.'d9tMELf‘>t 

37 

1 

111 

187  REPEAT 

38 

1 

113 

187  MRITEi'lnpvt  FllenaM  <eac 

39 

1 

112 

229  readln<fllenaee)l 

40 

1 

113 

349  IF  (0RD<FlLENAHCtl])-3?)  Tl 

BLOCK HELP-Blooks  the  HELP  (and  BRIEFHELP)  data  set  for  use  with  the 
A  PM  package.  By  using  a  blocked  data  set,  processing  is  speeded. 
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3  299  CXIT(rm)6IMN)| 

2  2A3  lieSEt(OMCNELP,filM«M)} 

2  274 

2  274  IK9EAT 

3  274  Ji>J41t 

3  284  FOR  i:-l  TO  10  DO 

4  301  K6IN 

4  301  (t«R-«) 

4  301  (Ml-t) 

3  301  REA0LN(0RI0MELP.LINE>} 

3  317  H:>0t 

3  321  FOR  k:>80  DOUNTO  1  00 

4  338  lEGlN 

7  338  A:*LINECK]| 

7  348  IF  <0R0(A)<39)0R<0R0(A»127>  THEN 

8  341  oeeiN 

9  341  DELETE(L1NE,K.1)} 

8  371  end; 

4  371  end; 

3  381  HRITELN(LINE>; 

3  397 

3  397  «4R4«) 

3  397  IF  J>0  THEN  HELFFlLC*.LtNEtl]S-LINE; 

4  420  end; 

3  430  IF  J>0  THEN 

4  437  SEEKCNELPFILE.J); 

3  447  IF  J>0  THEN 

4  434  PtlT(HELPFILE); 

2  441  UNTIL  EOF<ORIGHELF); 

2  471  clam*(orl«h«lpi; 

1  480  wiiil  (ard(fllMaMtll)>27)} 

0  490  END. 


1  1  liD  1  ««.  ntiNTER:*) 

2  1  1:D  1  ($RUNNIN6  THE  FOLLOWING  FIWeMN  NODIFIES  THE  ITSTEH. AFFU  FIU  FOR  USE  W/VIICXt) 

31  t:0  1  PROGRAH  VlOPATCHl 

41  i:0  3  VRR  MFIPRCKEO  RRRATC0..31.0..S11)  OF  0..2SSt 

S  1  1:D  8195  FtFILEl 

«  1  ItO  8235  lUNTEGERI 

7  1  i:0  0  8E61N 

8  1  i:i  0  RESET(F.'M:SYSTEN.  APPLE' It 

9  1  111  43  i:>8L0CKREA8(F,8UF.32li 

10  1  111  45  aOSE(F>| 

11  1  111  74 

12  1  i:i  74  80713.389] :-140t 

13  1  i:i  100  8UFC3.390]:-48i 

14  1  Itl  124  8UFC],394]:«40i 

15  1  i:i  148  8UFC3.45S]:-173: 

14  1  l:i  174  80713.4541 :-0t 

17  1  i:i  198  8UFt3.457i:-193t 

18  1  111  224  8UFC3.4S8]:-Ut 

19  1  111  248  8UFC3.4S9]:-29i 

20  1  111  272  8UFI3.440i:-32i 

21  1  111  294  80FC3.441i:«24t 

22  1  111  320  8UF(3.442i:-218i 

23  1  111  344  8UFC3.443i:>234t 

24  1  111  372  80F(4.207]l>3t 

25  1  111  394  RESETCF.' 441  SYSTEM. APPLE' 1 1 

24  1  111  424  1I«8L0CKHR1TE(F.8UF.32I; 

27  1  111  444  CLOSEIFIt 

28  1  no  455  END. 


VIDPATCH  (written  by  VIDEX)  updates  the  SYSTE!\). APPLE  program  for  use 
with  the  VIDEX  board.  This  program  must  be  run  once  with  each  SYSTEM.  A  PPL! 
file. 


